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A Microsoft tem 120 programas em fitas e disquetes à sua disposição 
_ _São sistemas aplicativos para acompanhar e agilizar os negócios 
de sua empresa. E também jogos eletrônicos para você e sua família 

_se divertirem muito. Todos especiais para TK-83, TK-85; - 

TK-2000, AppIeHe compatíveis. E todos com a mesma qualidade- - 

dos 100.000 programas já vendidos em todo o Brasil: - 

“Procure o revendedor Microsoft mais próximo (se não encontrar os 
programas Microsoft escreva para a Caixa Postal 54221 - CEP 01000- 
~S. Paulo-SP). Você encontrará os melhores programas da sua vida.. 
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EDITORIAL 


Ao contrário do que muito "economista"pensa, a 
importação de tecnologia sofisticada não é 
necessariamente eficaz ou benéfica para um país pobre e 
subdesenvolvido. 

Para escolher o exemplo mais dramático, basta ver o 
que causou a introdução da "novidade"leite em pó, em 
milhares de crianças africanas. Ou então, o que fez com a 
nossa economia fe sua conseqüente dívida externa) a 
introdução de centrais nucleares no Brasil. 

A mania de sofisticação tecnológica fez incentivar a 
instalação de grandes usinas de álcool (a "pressão"dos 
usineiros deve ter ajudado muito nessa decisão) para as 
quais transporta-se cana e das quais transporta-se álcool 
para os grandes centros. Ora, o bom senso mostra que a 
instalação de mini e micro usinas, próximas da produção 
de cana, distribuindo álcool para uso locai, forma um 
sistema de produção no qual um pequeno desperdício a 
mais é amplamente compensado peia eficácia da 
distribuição. 

Mas não! O aspecto "mambembe" da mini-usina fere o 
senso estético dos nossos tecnocratas. Resultado: hoje, 
no Brasil, gastam-se 42 calorias para se produzir quatro 
calorias de álcool! 

Na informática temos a mesma filosofia, transmitida 
inclusive ao consumidor. Faia-se em microprocessadores 
de 16 bits, vídeo-disco com leitura laser etc., e não se 
percebe uma coisa: informatizar uma sociedade não é 
produzir e importar tecnologia de vanguarda para uma 
elite (tanto social quanto empresarial). Para nós, no Brasil, 
até disquete está no limite de sofisticação! 

Além de informar e divertir, achamos que uma função 
social importante de Microhobby é a de facilitar a 
utilização de microcomputadores de preços acessíveis 
para mini-empresas e profissionais liberais. É ciar o que o 
armazenamento em fita com um pouco de habilidade 
funciona e atinge bons níveis de confiabilidade. 

Logicamente um sistema com dois disk-drives e uma 
impressora seria mais "profissional", mas atingiria um 
preço equivalente ao lucro anuai de um pequeno escritório 
de contabilidade! 

Há uns dias recarreguei a bateria do meu carro com um 
pequeno aparelho comprado no supermercado. Neste 
aparelho, a voltagem não é reduzida por um 
transformador, mas simplesmente colocando-se uma 
lâmpada em série. Obviamente, deixando-se o aparelho 
iigado algumas horas, joga-se fora uma quantidade 
considerável de energia elétrica. 

Os nossos tecnocratas condenariam este recarregador 
por não ter a "eficiência teórica compatível com as normas 
internacionais de países mais avançados ". 

Uma análise mais séria porém, mostra que ele, em 
cada recarga, não joga fora mais que 50 cruzeiros de 
energia elétrica. Em troca, custa menos que 10 litros de 
gasolina! 

Não sei quem teve a idéia, se é originai ou copiada, 
mas não importa: é disso que o Brasil precisa. Soluções 
inteligentes e baratas, mesmo que artesanais. 

E viva a engenharia "mambembe"! 




Precisa-se de um Programa 

Sou iniciante em computação e 
BASIC. Fiz dois pequenos cursos aqui 
em Itajaí e comprei um TK-85 de 48 kB. 
Sou gerente administrativo da Corena 
Metalurgia e Construções Navais S/A 
e sempre desejei incluir em um com¬ 
putador, informações do meu campo 
de trabalho afim de evitar a burocracia 
dos arquivos e dinamizar a precisão 
analítica das informações, de forma a 
se decidir com maior rapidez, precisão 
e abrangência uma série de assuntos 
normalmente impossíveis de serem 
respondidos a não ser com uma enor¬ 


me infraestrutura de pessoal ou, se¬ 
não, com um computador, embora pe¬ 
queno. 

Como não é fácil chegar rápido à 
aprendizagem da programação em de¬ 
corrência especialmente do pouco co¬ 
nhecimento que tenho do assunto, me 
aventurei a propor-lhes um problema 
para solução, na Microhobby (...). 
Edison de Souza Saenz — Itajaí, SC. 


programa consome muito tempo e 
nem sempre corresponde aquilo que 
desejamos que ele faça. Partir da es¬ 
taca zero, com poucos conhecimen¬ 
tos, é, por vezes, trabalhoso e custoso, 
principalmente para um principiante 
como você. Nestes casos, em que so¬ 
mos pressionados pelo tempo de um 
lado e pela falta de conhecimentos de 
outro, é conveniente recorrermos a fi¬ 
tas comercializadas, escolhendo uma 
que se adapte aos seus propósitos. 

Para orientar-se sobre o que esco- 


uns Den- 

eseuscompat»ve.Ss 

m bora : t fü S afinal, são opinião 

respeito pret endemos 

itores que n ° s P e las, no 
' totvTm eTconsidera- 
no, na0 relevantes. 

^guns aspectos dores, m s 

a) 0utroS S farão parte do 
3 ou mais ta ' ^ ^ então 


"“TfsÜSaia. p-ogra"®* inde ' 

noTK. tpm urn a solução;, nas 

Isso tudo te uhv você en- 

páginas de ^' c ^ 0 g ra mas para o 
contra, além dos P«jJ para con he- 

S eu computador, d e e dicas 

cê-lo mais prof r ^no outros compu- 
para conhecer c m isso po- 

tadores func.onam e ar seu 

derá ajudar aec P ão Vice-Versa? 

TK. Lembra-se farT1 nia TKcres_ 
Alémdisso^^ 


Anole. P° r est nova seção. 

hobby gar ^°ta se de uma seção 
TK.-2000. Trata-se nada 

que ^^" ros membros da 
a ver com os ou fará ma \ 

(amfaTK.EntreW'^ conhe ci. 
nenhum que este ir mão mais no- 
rSostuTK funciona. 




O Editor 
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Iher, consulte a nossa seção Fita do 
Mês, que, a cada número, publica a 
análise de uma fita de um determina¬ 
do fabricante. Seria interessante que 
você procurasse um dos fabricantes 
destas fitas para obter mais informa¬ 
ções. Verifique também os anúncios 
publicados em nossas páginas. 


Números atrasados 


Senhores, 

Tendo recebido a resposta a um 
pedido de informação sobre os núme¬ 
ros atrasados da revista Microhobby, 
informo que já possuo os exemplares 
disponíveis. 

De qualquer forma, gostaria de 
agradecer-lhes a gentileza do envio da 
resposta e a presteza e amabilidade 
nos contatos efetuados com este de¬ 
partamento. 

Hilel Knofholz Becher — Curitiba, PR. 

Caro Hihel, 

Agradecemos a você as referên¬ 
cias-elogios que nos fêz. Atender bem 
aos leitores deve fazer parte da filoso¬ 
fia de trabalho de qualquer revista e, 
no nosso caso, temos nos esforçado 
para que isso seja possível. 


Compilador e outros problemas 


Prezados Senhores, 

Como leitor e assinante da Micro¬ 
hobby me sinto no direito de fazer as 
seguintes sugestões: 

1) Gostaria que vocês publicas¬ 
sem um programa compilador para o 
TK. 

2) Publicassem um artigo sobre a 
eletrônica do TK para que leitores que 
entendam eletrônica possam desen¬ 
volver acessórios para ele. 

3) Já que o TK-82C saiu de linha, 
porque não publica seu esquema? 

4) Um artigo sobre os sistemas de 
alta resolução para a linha TK. 

Se os senhores me permitem, 
gostaria de responder à carta do leitor 
João Batista Donegá Filho (revista nú¬ 
mero 7) seção Cartas dos leitores. 

Caro João Batista, 

Os sons que você ouviu no wal¬ 
kie-talkie, provavelmente deveriam ser 
um telex ou outro aparelho de teleco¬ 
municações, pois seu rádio-transmis¬ 
sor/ receptor trabalha na faixa de on¬ 
das curtas e não existe nenhuma 
transmissão tipo L.G.M. nesta faixa. 


Isto porque qualquer freqüência de rá¬ 
dio abaixo de 80 MHz é refletida na lo- 
nosfera e, portanto, não poderia ser 
enviada ao espaço. 

Quanto a ligar uma antena para¬ 
bólica em seu TK, o fato é possível. 
Para isso, você precisa de uma antena 
de alto ganho, amplificadores de RF 
também de alto ganho e um conversor 
senoida//quadrada, além de interface 
para o computador. 

Antonio Tarcíso C. de Souza — Goia- 
ninha, RN. 

Caro Antonio, 

Estamos pensando em lançar, em 
um dos próximos números, um compi¬ 
lador para o TK. A seção Hobby tem 
apresentado alguns periféricos, expli¬ 
cando, quando necessário, o funciona¬ 
mento eletrônico da parte em foco. 
Quanto ao esquema, aconselhamos 
que você mesmo escreva para a pró¬ 
pria Microdigital. Quanto à alta reso¬ 
lução, é possível que publiquemos al¬ 
guma coisa sobre os sistemas que exis¬ 
tem no mercado. 

Agradecemos sua atenção para 
com o leitor João Batista, responden¬ 
do sua carta. 

O 


NRÜ CARREGUE 
ESTES PROGRAMAS! 


ELES ESTRO RO SEU DISPOR NO UL¬ 
TIMO SUCESSO DO flHBB : P EXTENDED 
©RSIC HICROPOUER.UEdfl R LISTR: 
RENUMERRDOR.. NOME . Hl — 
SPEED..MRPR DE MENORIR 
GERROGR DE REH..ESTRU- 
TURR DE LINHA.. SOMA SIN- 
TRTICR.. RRM TOP.. DELETE 
EM BLOCO.. E 2? ROTINAS 
DE .UIDEO (TIG-SCREEN). 
ga crrreçrr . BBB ALTERAR O MICRO 
asas OCUPRR R RRH.E LIGRR E USRR. 


E O TIGRE CONTINUR COM OS OU¬ 
TROS SUCESSOS: TIG -LORDER.. TIG - 
CQMP , TIG — SCREEN E MUITAS NO- 
UIDADES EM JOGGS.ESCREUR-NOS. 

ima» a r » mma m nt » an r m -m- m umm m mm mm i 

RTENDEMOS SOMENTE POR CRRTR. 

“Ti&r 

COMERCIO DE EGUIPRMENTOS 
PRRR COMPUTADORES LTDA. 

RUA CORRE IR G«LOAO.. 224 
60154.7 - SRO PRULO - SP 


O TIGRE QUER REUENDEDORES PRRR 
TODO O BRASIL.ENTRE EM CONTATO. 
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nr-LOABEm 


ESTIK 


Finalmente no Brasil o verdadeiro inter¬ 
face ativo que indica o nível (volume) 
certo para carregar programas de grava¬ 
dor para o micro. (Série TK, CP 200, Rin-. 
go, TS 1000). E facil de usar com qual¬ 
quer gravador. Possuindo filtro ATIVO e 
AMPLIFICADORES, o “SOFT-LOADER’ 
regenera os sinais de fita em pulsos digi¬ 
tais e os eleva ao nível apropriado para o 
micro. Alimentado por pilhas para facili¬ 
tar o uso, o “SOFT-LOADER’ pode ser 
usado também para reprodução perfeita 
de programas de umà fita para outra: 

Vém pronto com cabos e plugs para in¬ 
terligações. Acompanha folheto de ins¬ 
truções. 


cr$ 12 .-800,00 


Um joystik com teclas para seu micro. 
TK (82C,83,85) e outros que possui co¬ 
nector para joystik com lóqica Sinclair 

(5,6.7.8.e0). 

Excelente para jogos de 2 e 4 direções 
O formato anatômico e a boa distribuição 
das teclas possibilita melhor controle 
em jogos de qualquer tipo. 


Envie seu pedido com cheque nominal cruzado ou vale postal a: 


EITIONIC 

componentes e sistemas Itda. 
CAIXA POSTAL 7004 

SAO JOSÉ DOS CAMPOS - SP. - CEP 12200 
TEL. (0123) 29-1148 

OBS.: - As despesas de remessa estão encluidas no preço. 


I 



Pequenos Anúncios: 
Como Anunciar 


Oferecendo mais um serviço (gra¬ 
tuito) para nossos leitores, resolvemos 
dinamizar a seção "pequenos anún¬ 
cios". Para anunciar na MICROHOBBY 
preencha o cupom abaixo e envie-o 
para 


r 


Texto do pequeno anúncio a ser publicado: 




r 

& 


% 

Aceitamos xerox do cupom e não 
aceitamos telefonemas (por favor). 

Obviamente nos reservamos o di¬ 
reito de não publicar anúncios "incon¬ 
venientes". 


\ 

MICROHOBBY 
Pequenos Anúncios 
Rua Bahia, 1.049 
01244 - São Paulo - SP 

_ „ _ J 




J 


Nome: _ 

End: _ 

CEP: _ 

Cidade: _ 

Estado: _ 

TeL: _ 

Se assinante, nP da assinatura: _ 

Para nosso controle (estes dados não serão publicados). 
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Sempre recebemos dúvidas de lei¬ 
tores relativas à economia de memó¬ 
ria. Por este motivo dedicamos este 
DesgrUando a algumas dicas de co¬ 
mo economizar memória. Sabemos 
que não esgotamos o assunto, no en¬ 
tanto, estas dicas já ajudam bastante 
em diversas situações, sobretudo aos 
possuidores de computadores com 
memória de até 2 k. 


Para economizar memória em 
seus programas, siga as regras apre¬ 
sentadas a seguir: 

1) tire todas as linhas REMs que 
contenham comentários, mas não eli¬ 
mine as linhas REMs que contenham 
rotinas em linguagem de máquina. 

2) quando o seu computador ti¬ 
ver apenas 1 ou 2 kBytes de memória 
ele só armazena, no arquivo de vídeo, 
o que está impresso, não consumindo 
memória com os espaços vazioè. (Pa¬ 
ra maiores detalhes veja Microhobby 
N?4, seção DICAS). 

3) as matrizes que forem dimen¬ 
sionadas devem ter o tamanho exato 
que será usado. 

4) use o máximo de instruções ló¬ 


TABELA 1 

Normal 

Usando instruções lógicas 

IF A10 THEN LET A = A + 1 

LET A = A + (A > 10) 

IF INKEY$ = "5" THEN LET A = A + 1 

LET A = A + (INKEY$ = "5") - 

IF INKEY$ = "8" THEN LET A = £ + 1 

(INKEY$ = ” 8 '') 


TABELA II 

Normal 

Economizando memória 

LET A = 0 

LETA = PI - PI 

LETA = 1 

LETA = PI/PI 

LET A = 2 

LETA = PI + PI 

LETA = 3a 

LETA = CODE 'CARACTERE' 

LETA = 66 

Para saber o caractere consulte o apêndice A 
do Manual 

LETA = 67 a 

LET A = VAL "67" 

LETA = 127 

LET A = VAL "127" 

LETA = 128 a 

LET A = 255 

LET CODE "CARACTERE" 

LET A = 256 ou maior 

LETA = VAL "256" 


gicas possIVeis. (Tabela I). 

0 TK interpreta as instruções lógi¬ 
cas da seguinte maneira: 

— se a instrução lógica for verdadeira 
é atribuído o valor 1; 

— se a instrução lógica for falsa é atri¬ 
buído o valor 0. 

5) Substitua os valores numéricos 
usando a Tabela II. 


TABELA III 

Normal 

Economizando 

LETA = 0 

LETB = 0 

LET C = 0 

LET A = 0 

LET B = A 

LET C = A 


6) Se você for usar variáveis com 
o mesmo valor use o artifício da Tabe¬ 
la III. O 
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Cursos e Seminários 


"Cursos de Verão" é o nome da¬ 
do pela DataM/cro Informática Lida. 
— empresa que promove diversos cur¬ 
sos na área, localizada no Rio de Ja¬ 
neiro em Ipanema, — aos seus cursos 
durante o mês de março. 0 primeiro. 
Introdução aos Microcomputadores 
iniciar-se-á em 13 de março. 0 segun¬ 
do, "Curso de Linguagem Basic", em 
12 de março e, o terceiro, "Microcom¬ 
putador para Crianças", tem data mar¬ 
cada para iniciar-se, também, em 12 de 
março. 

0 Instituto de Tecnologia ORT, do 
Rio de Janeiro, entidade ligada à So¬ 
ciedade Israelita Brasileira, promoverá 
os seguintes cursos, todos iniciando 
em 2 de abril: "VSE/ICCF - Concei¬ 
tos e Funções"; "Microcomputadores 
e a Linguagem Basic"; LOGO — Uma 
Linguagem de Programação para 
Crianças"; "Assembler para o CP/M". 

A Servimec empresa prestadora 
de serviços localizada em São Paulo e 
conhecida pela promoção de diversos 


cursos e seminários na área de Infor¬ 
mática, está oferecendo uma vanta¬ 
gem atraente para seus alunos do cur¬ 
so de Cobol, que alcançam média final 
9: estágio remunerado com registro em 
Carteira Profissional — uma proposta 
dada pelo Centro de Estudos Avança¬ 
dos de Informática da empresa. Esta 
proposta, lançada no início deste ano, 
tem como objetivo a profissionalização 
dos alunos dentro da própria escola. O 
estágio terá duração de 120 horas du¬ 
rante três meses, com duas horas de 
trabalho diário. 

A Compucenter Sistemas, locali¬ 
zada em São Paulo, promove diversos 
seminários durante o mês de março e 
início de abril, entre estes estão: de 14 
a 16 de março "Dicionário de Dados", 
terá instrutor Arvind D. Shah, diretor 
da Performance Development Co. no 
São Paulo Hilton Hotel; "Como esti¬ 
mar e planejar projetos" de 14 a 16 de 
março, e realizar-se-á no Hotel Meridi- 
en Copacabana, Rio de Janeiro, e terá 
como instrutor Daniel Myers, presiden¬ 
te da Myers 8- Associantes; "Automa¬ 
ção de Escritórios", de 2 a 4 de abril no 
São Paulo Hilton Hotel, contará com a 


presença de Clóvis Zanetti, consultor 
autônomo junto às organizações cana¬ 
denses Consulteam e CECIT, como 
instrutor. Além destes cursos a Com¬ 
pucenter está lançando uma novida¬ 
de: um curso de "Projeto e Análise de 
Sistemas", em vídeo cassete. 


Burroughs e seu novo 
computador nos EUA 

A Burroughs anunciou nos Esta¬ 
dos Unidos seu mais novo computa¬ 
dor o A9, incorporando em seu proje¬ 
to os mais avançados softwares. No 
Brasil, está sendo analisada pela SEI a 
sua fabricação. 


Computer Camp e a monitoria 
para universitários 


A colônia de férias Computer 
Camp, localizada em Itapecerica da 
Serra em São Paulo, está oferecendo 
para universitários um curso gratuito 
de introdução ao computador. Após o 
curso, aqueles que obtiverem os me¬ 
lhores índices de aproveitamento, re¬ 
ceberão propostas para se tornarem 
monitores de criancas no campo. -► 
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Um novo produto 
na praça: o EXATO 


Compatível em software e hard¬ 
ware, com os computadores da linha 
Apple e EXATO é o lançamento da 
CCE — Equipamentos Eletrônicos que 
possibilita a entrada da empresa, no 
mercado brasileiro de informática. 0 
EXATO tem o microprocessador 6502, 
possui 12 k bytes de memória ROM e 


48 de RAM podendo ser expandida até 
128 k bytes. 

A parte eletrônica do micro foi de¬ 
senvolvida pela CCE cuja placa decodi- 
ficadora é um projeto exclusivo da em¬ 
presa. Inicialmente a CCE produzirá 
cerca de 300 unidades por mês, pre¬ 
tendendo com o decorrer do tempo, 
investir continuamente na área para 
"suprir os vários segmentos do mer¬ 
cado". 


Cursos e Seminários 


A Mikro Informática Ltda., empre¬ 
sa que ministra diversos cursos na área 
de microinformática, já estipulou seu 
cronograma de cursos para este ano. 
Entre os cursos estão: Informática para 
jovens, Operação e programação de 
microcomputadores, Linguagem Basic 
e Basic para Crianças. Todos os cursos 
têm várias opções de horários. Infor¬ 
mações no telefone: (031) 222-3035 — 
Belo Horizonte. 


Ainda Microdigital 


Após dar início à inauguração de 
diversas filiais com o intuito de prestar 
assistência técnica aos TK-maníacos, 
a empresa amplia esta rede e inaugura 
em Porto Alegre, no famoso edifício 
Sulacaap. outra filial. _ 


Novidades na Compucenter 


A Compucenter está comerciali¬ 
zando no Brasil, os produtos desenvol¬ 
vidos pela Martin Marietta Data Sys¬ 
tems. Para começar, a empresa está 
apresentando o RAMIS II, a linguage, 
de quarta geração. 

O 
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LIVROS 


A primeira Mordida 
Editora Nobel 

Autores: Wilson José Tucci, 

José E. Moreira e 

Daniel R. Falconer V- 

A Primeira Mordida é o primeiro 
passo que damos para degustarmos 
uma maçã. A maçã no nosso caso é o 
Apple ou um de seus compatíveis 
(existem vários no mercado). 

0 livro vai paulatinamente dando 
mais mordidas na maçã (isto é, expli¬ 
cando passo a passo), como ilustra as 
aberturas de cada capítulo. Ao final do 
livro, seu leitor estará, como na nossa 
seção "Por Dentro do Apple" e terá 
comido uma maçã, como mostram ca¬ 
da uma das ilustrações dos capítulos 
iniciais. 

Abrangendo desde os rudimentos 
da linguagem BASIC até o uso de grá¬ 
ficos e som. 

A linguagem, como convém a um 
livro introdutório, é simples sem me- 


Introdução aos Microcomputadores 
3? edição 

Editora McGraw-Hill do Brasit 
Autores: Adam Osborne e 

David Bunnell V- 

ção de um programa, o autor acon¬ 
selha: "a opção mais barata é a com¬ 
pra de um gravador cassete (ao invés 
de um disk-drive)" . . . "coloque-o 
junto ao micro e espere que os dois 
conversem entre si informalmente". 

Uma característica do livro que 
cativa de cara, o leitor iniciante — o 
público para o qual ele se dirige, é a uti¬ 
lização de personagens que fazem par¬ 
te de todo o desenrolar das explica¬ 
ções do livro. Susan Kilobyte uma 
"antiga hobista em computadores", 
trabalha nas indústrias ACE, proprie¬ 
dade de Mr. Fogarty, empresário leigo 
em tudo que se refere a computado¬ 
res, mas que compra um micro da li¬ 
nha Sinclair para ser utilizado na escri¬ 
turação e fazer todos os cálculos da 
introdução aos Microcomputa- empresa. 
dores é um livro de linguagem simples Assim, seqüencialmente, o autor 
e objetiva, dividido em duas seções segue a sua trajetória tendo sempre à 
que contém três capítulos cada uma. A frente a entendida Susan Kilobyte 
primeira parte, dá uma visão do que é mostrando ao seu patrão os diversos 
um computador, explicando as diver- tipos de computadores, seus usos e 
sas partes que compõe um sistema de aplicações específicas, 
microcomputadores, impressoras, mo- Outra característica marcante no 
dulador, monitor de vídeo, etc. e a fun- tocante a impressão, é a distribuição 
ção de cada uma. Dentro de cada uma do texto no livro. As informações são 
destas funções, o livro explica as for- distribuídas conforme a necessidade e 
mas mais simples de utilização de um interesse do leitor. As informações em 
\micro como, por exemplo: na grava- negrito, mostram os pontos mais im- 




-\ 

nosprezar o leitor com poucos conhe¬ 
cimentos e sem aborrecer os que já ti¬ 
veram um contato com a linguagem 
BASIC, quer no próprio Apple, quer 
em outros computadores. 

0 professor Wilson Tucci já é co¬ 
nhecido por nossos leitores devido ac 
seu trabalho de coordenação da seção 
Por Dentro do Apple e tem larga expe¬ 
riência no ensino de BASIC. Dois de 
seus ex-alunos colaboraram com a fei¬ 
tura deste livro, sem desmerecer seu 
mestre. 

Este livro torna-se obrigatório a 
todos aqueles que desejam conhecer 
um pouco sobre o Apple, quer tenham 
ou não um computador desta linha. 

Álvaro A. L Domingues 

___ J 


portantes de cada capítulo e o restarK 
te do texto complementa estes pontos 
possibilitando, ao leitor, a obtenção de 
informações complementares que re¬ 
forçam sua leitura. 

0 autor vai ilustrando, de maneira 
lógica, as partes que compõem o soft¬ 
ware. Explica como comunicar-se com 
o micro, seja em linguagem de máqui¬ 
na (explicando o controle de dispositi¬ 
vo, o chip ROM e RAM, o programa 
editor e monitor, etc.). 

Ilustra, ainda, as linguagens de 
programação como o BASIC, PAS¬ 
CAL e ASSEMBLER. 

A segunda parte de Introdução 
aos Microcomputadores fornece infor¬ 
mações ao leitor a respeito do proces¬ 
samento interno dos computadores e 
os princípios técnicos que envolvem o 
hardware de um micro. 

Os títulos dos capítulos desta se¬ 
gunda parte: Por Dentro de um Micro, 
Unindo as Partes e outros, demons¬ 
tram bem o intuito do autor, em pas¬ 
sar ao leigo de maneira simples o hard¬ 
ware de um microcomputador. 

Introdução aos Microcomputado¬ 
res é um livro gostoso de ler, fugindo 
do chato linguajar de livros desta área. 

_ Ana Lúcia deAlcântara) 
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PROGRAMA DO LEITOR 


Dinheiro no tempo 
Memória Ocupada: 12862 bytes 
Soma Sintática: 5136 



DINHEIRO NO TEMPO 

1* parte 

Luiz Tarcísio de Carvalho Jr 


I) Introdução teórica: 


Quando uma pessoa contrata um 
serviço de terceiros, ela deve pagar por 
esse serviço. Da mesma forma, quan¬ 
do uma soma em dinheiro é empres¬ 
tada a alguém, é razoável esperar-se 
um pagamento pelo uso do capital em¬ 
prestado. Assim, quem empresta tem 
uma compensação pela perda da opor¬ 
tunidade de investir em outro lugar. 

Chamamos de "juros" ao "paga¬ 
mento" pelo uso do dinheiro empres¬ 
tado. 

Para ilustrar, imagine que uma 
pessoa A empreste por um mês à uma 
pessoa B, um capital de CrS 10.000,00. 
Suponha agora que a pessoa B, no fi¬ 
nal desse mês pague à pessoa A a 
quantia de CrS 11.000,00. Podemos 
entender deste exemplo, que a pessoa 
B devolveu os CrS 10.000,00 empres¬ 
tados e pagou CrS 1.000,00 pelo uso 
do capital emprestado durante o mês. 
Os juros do mês são, portanto, de 
CrS 1.000,00. Note que esta quantia 
representa 10 por cento do capital 
(1.000/10.000 = 10%). Assim, dize¬ 
mos que a taxa de juros no mês foi de 
10 por cento. 

Imagine que a mesma pessoa A 
empreste à pessoa B CrS 10.000,00, a 
uma taxa de juros mensal de 10 por 
cento durante três meses. Qual será a 
quantia que a pessoa B deve devolver à 
pessoa A, no final dos três meses? 

Para responder à essa pergunta há 
necessidade de sabermos como são 
computados os juros. 

12 MICROHOBBY 


Se os juros forem computados, no 
final de cada mês, como sendo sempre 
de 10 por cento sobre o capital inicial, 
serão denominados JUROS SIM¬ 
PLES. Assim, a quantia a ser devol¬ 
vida no final de três meses será de 
CrS 13.000,00 (veja tabela I). 

Por outro lado, se os juros forem 
computados, no final de cada mês, 
como sendo de 10 por cento sobre a dí¬ 
vida no comeco do mês, serão chama¬ 
dos de JUROS COMPOSTOS. Neste 
caso, a quantia a ser devolvida no final 
dos três meses será de CrS 13.310,00 
(veja tabela II). 

Note então que os juros simples 
são juros produzidos no primeiro perío¬ 
do (mês) multiplicados pelo número 
total de períodos. No exemplo, 10 por 
cento de 10.000,00 x 3 = 3.000,00. 
Os juros compostos, entretanto, fo¬ 
ram de 3.310,00. São maiores do que 
os juros simples porque computam 
"juros sobre juros". Em nossa econo¬ 
mia utilizam-se quase que somente cál¬ 
culos com juros compostos. 

Deve ficar clara, neste ponto, a 
idéia de que duas somas diferentes 
de dinheiros podem ser equivalentes 
entre si, em pontos diferentes do 
tempo. No exemplo de juros compos¬ 
tos dizemos que CrS 10.000,00 no dia 
de hoje (valor presente) equivalem a 
CrS 13.310,00 (valor futuro) daqui a 
três meses (número de períodos) à 
uma taxa de 10 por cento ao mês (taxa 
de juros por período). 

No mesmo exemplo, o empres- 
tador poderia concordar em receber 
seus CrS 10.000,00, emprestados na 
data de hoje, em pagamentos iguais ao 


final de cada mês (série uniforme), du¬ 
rante o período de três meses. Admi- 
tindo-se a mesma taxa de juros ao mês 
(10%), CrS 10.000,00 hoje, equivalem 
a uma série uniforme de pagamentos 
de CrS 4.021,15 (valor da prestação) ao 
final de cada mês durante os três me¬ 
ses (veja tabela III). 


"único pagamento 


P = 10.000,00 

1 

2 

3 

J = 10% ao mês 

▼ 


F = 13.310,00 


. . . Equivale a . . . 
"série uniforme 


K p = 10.000,00 

1 

2 

3 

1 

r _ i 

r i r 


A = 4.021,15 


J = 10% ao mês 


As setas voltadas para cima representam 
entrada de capital e as voltadas para bai¬ 
xo representam saída de capital sob o 
ponto de vista de quem pediu o emprés¬ 
timo_ 

FIGURA 1 



















Os dois planos expostos (paga¬ 
mento único e série uniforme) são 
equivalentes e podem ser ilustrados es¬ 
quematicamente pelos diagramas da 
figura 1. 

Resumindo, quantias de dinheiro 
não podem ser comparadas direta- 
mente a não ser que o sejam num mes¬ 
mo ponto de tempo. Para compará-las, 


em pontos diferentes do tempo, é ne¬ 
cessário determinar valores equivalen¬ 
tes através do uso de cálculos apro¬ 
priados de juros compostos. Estes cál¬ 
culos constituem a essência do pro¬ 
grama "MATEMÁTICA FINANCEI¬ 
RA". 

As grandezas que aparecem mais 
freqüentemente nesse programa estão 
relacionadas na tabela IV. 


antei 


PROJETOS E MANUTENÇÃO 

VÍDEO CASSETE E CÂMARA 

UMATIC - VHS - BETA 
PAL-M - N-LINHA e NTSC 

MESMO SISTEMA EUROPEU 



TABELA 1 - JUROS SIMPLES 


MÊS 

DÍVIDA NO COMEÇO 
DO MÊS 

JUROS DO MÊS 

DÍVIDA NO 
FIM DO MÊS 

1 

10.000,00 

10% de 10.000,00 = 1.000,00 

11.000,00 

2 

11.000,00 

10% de 10.000,00 = 1.000,00 

12.000,00 

3 

12.000,00 

10% de 10.000,00 = 1.000,00 

13.000,00 


Transcrição de Filme 

PAIA) e SECAM 

(SERVIÇO IMEDIATO) 


Video Game e Cartuchos para: 

ATARI— COLECO e ODYSSEY 



TABELA II 

- JUROS COMPOSTOS 


PAGAMENTO ÚNICO 

MÊS 

DÍVIDA NO COMEÇO 
DO MÊS 

JUROS DO MÊS 

DÍVIDA NO 
FIM DO MÊS 

1 

10.000,00 

10% de 10.000,00 = 1.000,00 

11.000,00 

2 

11.000,00 

10% de 11.000,00 = 1.100,00 

12.100,00 

3 

12.100,00 

10% de 12.100,00 = 1.210,00 

13.310,00 


TABELA III - JUROS COMPOSTOS 

SÉRIE UNIFORME DE PAGAMENTOS 

MÊS 

DÍVIDA NO 
INÍCIO 
DO MÊS 

JUROS DO MÊS 

DÍVIDA NO 
FIM 

DO MÊS 

PAGAMENTO 

FEITO 

1 

10.000,00 

10% de 10.000,00 = 1.000,00 

11.000,00 

4.021,15 

2 

6.978,85 

10% de 6.978,85 = 697,89 

7.676,74 

4.021,15 

3 

3.655,59 

10% de 3.655,59 = 365,56 

4.021,15 

4.021,15 


TABELA IV 

NOME DA GRANDEZA 

SÍMBOLO UTILIZADO 

NO PROGRAMA 

Valor presente 

P 

Valor futuro 

F 

Valòr de prestação 

A 

Taxa de juros (%) por período 

J 

Número de períodos 

N 


Atendemos todo o Brasil 
(via reembolso) 


Avenida Liberdade. 867 

Tel. 270-4944 -SP 

Ar. Brig. Faria Lima. 1132 — L 36 

Tel. 815-5901-SP 
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II) O programa 


Após digitado, assim que o pro¬ 
grama for posto para "rodar", você vai 
se deparar com um quadro de INS¬ 
TRUÇÕES que, a rigor, é um quadro 
de opções. Há basicamente três 
opções: PROGRAMA 1, PROGRAMA 


2 e GRAVAÇÃO DO PROGRAMA. 

A opção pelo PROGRAMA 1 o 
remeterá a um novo quadro de esco¬ 
lha entre seis alternativas. 0 mesmo 
ocorre se a opção for feita pelo PRO¬ 
GRAMA 2. 

Quanto à opção de GRAVAÇÃO 
DE PROGRAMA há duas possibilida¬ 


des: em High-Speed ou em SAVE. 
Caso você não possua um TK-85 su¬ 
gerimos não digitar as linhas 2100, 
4610, 4620 e 4630 e fazer uma modifi¬ 
cação no comando de impressão na li¬ 
nha 2060 de modo que ela não ofe¬ 
reça possibilidade de gravação em 
High-Speed. 


S©08 REM "MflTEHflTICfl FINftNCEIRFt" 

2001 REM "LUIZ TRRCI5IO DE CRRUR 

LHO UUNIOR" 

2002 REM "OUTUBRO/19SS 
2010 PRINT RT 

EgEESaSB" ; RT 7, 12; . R 

T> 10.. 3j "ESTE PROGSRMR E 5U5DIUID 
IDO";RT 12,3;"EM DOIS: PROGRRMR 
1 E";ftT 13,12;"PROGRRMR 2";RT 15 

,3;"5URS OPCOES VEM R SEGUIR..." 
2020 POUSE 360 
2030 CLS 
204-0 DIM 0(12) 

2050 FRST 
2060 PRINT 


^ROGRPMP 2 



INS' 

PRUCQ 

El 

PROGRRMR I 

N M ./'l 


31; "f, 4 

R , N) 

R. 


_, RT 2,16; 

1- p=<f,u,n> m 

2- P=(R,U,N) 

3- F=(P,U,NÍ 
4 — F = ( R , U , N) 

5- PI=(P,J,N) 

6- R =(F/J|N) 


I 


I 


‘sT^RT 2., 

1- Ü=(P. 

2- <J= CP, 

3- N=(P % 

4 — N=ÍF, 

5 — N = ( P, 
6 - 5RLDO 

UEDO 


DIGITE TECLR 1 IDIGITt TEC 


RT ±2, 16; RT 1 

I5*3^j=:Trxr oe üuro 



>RRR GRRURR O ;; SN=NUMERO DE PE 
PROGRRMR EM: RIODOS 

fer|P=URLOR PRE5EN 
I) HIGH 5PEED , TE 

DIGITE. . .13 fe;$F=URLOR FUTURO 
fe^sURLOR DR 
ÇrSf PRE5TPCRO 


2070 SLOU 


2080 

0 

IF 

INKEY$=-1" 

THEN 

GOTO 

213 

2090 

Oi 

IF 

INKEY$s ,, 2 M 

THEN 

GOTO 

320 

2100 

d 

IF 

INKEY$="H M 

THEN 

GOTO 

461 

2110 

IF 

INKEV$=-S- 

THEN 

GOTO 

464 


2120 GOTO 2080 
2130 FRST 
2140 CLS 
2150 PRINT 







2170 FOR T=2 TO 16 

2180 PRINT RT T , 0; ; RT T,9;-&- 

; RT T , 24; # *SS" ; RT T,31;"B" 

2190 NEXT T 

2200 P RINT ' Hl I ■ | | | 1 ; RT 

2, ío;; 1 i li I | | | Q JJBr_T 7 T 2,25; ”0 

- - -. RT 3 , 1 ; ‘TMaPUjl«aa , ‘; rt 3 .. 10 


L ^ RT j ^ 25; 

2210 PRINT RT 5,4;-0-;RT 5 , 12 ; -J 
B BB“;RT 5.27 ; ‘J5 , ‘ i RT 7,4;- 
;RT 7,12;-H B Br; RT 7,27;-f 
;RT 9,4;-S";RT 9,12;-0 B 
RT 9,27; "Kr" _ 

2220 PRINT RT 11,4;"’B";RT 11,12; 
“ B ES**; RT 11,27; -Etl; rt 13,4 
;rt 13,12; "13 B 03“; RT 13, 
27; ; RT 15,4; ; rt 15,12; "S 

B ffl“;RT 15,27; -S- 


THEN GOTO 232 
THEN GOTO 241 
THEN GOTO 250 
THEN GOTO 259 
THEN GOTO 268 


O URLOR 


2230 PRINT RT 17, 

; rt iô,2;-p 

«PRESENTE; R=PRESTRCRO;-;RT 19,2 
; M F=FUTURO; U=UUROS; -;RT 20,2;“N 
«NUMERO DE PERIODOS M 
2240 SLOU 
2250 IF INKEY$= M 1 M 
0 

2260 IF INKEY$=-2“ 

0 

2270 IF INKEY$=-3” 

0 

2280 IF INKEY$=”4" 

0 

2290 IF INKEY$a"5 M 

2300 IF INKEYS=“6“ THEN GOTO 277 

0 

2310 GOTO 2250 
2320 LET K=1 
2330 GOSUB 4770 
2340 PRINT RT 8,0; "©URL 
FUTURO?" 

2345 LET Q=1 
2350 INPUT X$ 

2355 GOSUB 5120 

2360 PRINT RT 9,0; M F=CR$ “;X$ 
237© LET RiK)=F1/X 
238© GOSUB 467© 

2385 GOSUB 467© _ 

239© PRINT RT 11.0; " fSESSSEM^BSSSSi 
BB=CR$ -; n$ 

2400 GOTO 3©20 
2410 LET K=2 
242© GOSUB 477© 

243© PRINT RT 8,0; -©URL O URLOR 
DR PREST PCfiO?- 
2435 LET ©=1 
244© INPUT X$ 

2445 GOSUB 512© 

245© PRINT RT 9,©;-R=CR$ M ;X$ 
246© LET fl(K)sFI*CX-i)/CI*X) 

247© GOSUB 4S7© 

2475 GOSUB 487© 

2480 PRINT RT 11,0; 

aa=cR$ -;n$ 

249© GOTO 3©2© 

2500 LET K=3 
2510 GOSUB 477© 

2520 PRINT RT 8,0;-©URL O URLOR 
PRESENTE?” 

2525 LET ©=1 
2530 INPUT X$ 

2535 GOSUB 512© 

2540 PRINT RT 9,0;-P=CR$ -;X$ 

2550 LET P(K)=FiíX 
2560 GOSUB 4670 

2565 GOSUB 437© _ _ 

257© PRINT RT 11.0: - »JrW*lrlÍErt>4*IifrO 
=CR$ N$ 

2580 GOTO 3020 
2590 LET K =4 
2600 GOSUB 4770 

2610 PRINT RT 8,0; -©URL O URLOR 
DR PRESTRCRO?- 
2615 LET ©=1 
2620 INPUT X$ 

2625 GOSUB 512© 

2630 PRINT RT 9,©;-R=CR$ “;X$ 

2640 LET RÍK)=F1*(X-l)/I 
2650 GOSUB 467© 

2655 GOSUB 437© 
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2660 PRINT RT 11,0; a 'QQ£BSSB0SiS133 
s=CR$ ";n$ 

2670 GOTO 3020 
2680 LET K =5 
2690 GOSUB 4-770 

2700 PRINT RT 8,0;"QURL O URLOR 
PRESENTE?" 

270S LET 0=1 
2710 INPUT X$ 

2715 GOSUB 5120 

2720 PRINT RT 9^0;"*P=CR$ " ; X* 
2730 LET - RCK) =Fií I*XV (X-l) 

274-0 GOSUB 4-670 
274-5 GOSUB 4-870 

2750 PRINT RT 11,0; ‘ H^EOEHSEI=CR 

% ";n$ 

2760 GOTO 3020 
2770 LET K=6 
2780 GOSUB 4-770 

2790 PRINT RT S,0;"OURL O URLOR 
FUTURO?" 

2795 LET 0=1 
2800 INPUT X$ 

2805 GOSUB 5120 

2810 PRINT RT 9,0;"F=CR$ X$ 
2820 LET fl(K)=FlíI/(X-l) 

2830 GOSUB 4-670 

2835 GOSUB 4-378 _ 

284-0 PRINT RT 11,0; "BESSBEEEBJ^CR 

$ n$ 

2850 GOTO 3820 

2860 CLS 

2870 GOSUB 5220 

2880 PRINT RT 5,0;"OURL O NOUO N 
UMERO £>E PERÍODOS?" 

2890 INPUT N 

2900 PRINT RT 6,©;"N=";N 
2910 LET X=(1+I)**N 
2920 GOTO 2960 
2930 CLS 
294-0 GOSUB 5228 

2950 PRINT RT 5,0;"NUMERO DE PER 
IODOS = #, ;N 

2960 IF K = 1 THEN GOTO 234-0 
2970 IF K =2 THEN GOTO 24-30 
2980 IF K =3 THEN GOTO 2520 
2990 IF K =4- THEN GOTO 261© 

3000 IF K =5 THEN GOTO 2708 
3010 IF K=6 THEN GOTO 279Q 
302© PRINT RT 13.0; 

3030 PRINT RT 14-,©; 


3230 PRINT RT 1,0 


DXGITc 


PRhR 


m: 


304-0 PRXNT RT 15, ©; "fJiOUTRR OPCfl 

O.TECLfi R M" 

3050 PRINT RT 16,O;"liMESHR OPCR 
O E: M" 

3060 PRINT RT 17,0; Í0UTR05 UR 

LORES.TECLR B M " 

3070 PRINT RT 18,0;"§ tMESMO U.. 
•(•••••■■•.TECLR C 

3Óèo’PRINT‘flT 19,0;*% íMESMO ü E 
MESMO N...TECLR D M" 

3090 PRINT RT £0,O;"iiP/PRRRR: S; 
tP/OUTRO PROGRRMR : fejj" 

3100 PRINT RT 21.0; 

3110 IF INKEYâ="fi" 




0 

3130 IF 
0 

314-0 IF 
0 


INKEYIs*^' 


THEN 

GOTO 

213 

THEN 

GOTO 

318 

THEN 

GOTO 

286 

THEN 

GOTC 

293 

THEN 

THEN 

ST OP 
GOTO 

203 


3170 GOTO 3118 
3180 GOSUB 4-778 
3190 GOTO 2960 
3280 FftST 
3210 CLS 
3228 PRINT 


PROGRRMR 


324-0 FOR T=2 TO 16 _ 

3250 PRINT RT T,0;"S";RT T , 9; ”8S*’ 
;RT T,24; -SB"; RT T,3l;"35" 

3260 NEXT T _ 

3270 PRINT RT 2,1; "■BSE23H"; RfT 

2 , 10 ; —"II 'I II l l M — ni "0 

; RT 3,1; "MsMawsra ”; RT 3,10 
r; RT ÕT 25 ;• 


IGITE 



15,12;"S 


3260 PRINT RT 5,4-; "JÇ"; RT 5,12; 

B £H"; RT 5,27; "Í3"; RT 7,4-; 

; RT 7,12;"B B Er ; RT 7.27; 

;RT 9,4-;"(ÇF;flT 9,12; "B B 
RT 9 27 * "H" 

3290 ‘ PR INT RT 11,4-; "S3" : RT 11,12; 
"B E B’*;RT 11,27; "ES"; RT 13,4- 

; T lB";flT 13,12; "B_ S H";RT 13, 

27;”S";RT 15,4-; "s3"; RT 

B B B";RT 15,27,"^; 

330O PRINT RT 17,0;"Mi 

msssmmMs®sims5£gB8âm'' 

3310 PRINT RT 18,2;"P=PRE5ENTE; 
Q-PDF^TPPOn*" 

3320 PRINT RT 19,2; "F=FUTURO; U=* 
JUROS; N =PERIODOS" 

3330 PRINT RT 20,2;"5D=5flLDO DEU 
EDOR RPOS PRESTRCRO 

L" 

334-0 SLOU 

3350 IF INKEY$ = "1" THEN GOTO 34-2 
0 

3360 IF INKEY $ = "2** THEN GOTO 364- 
0 

3370 IF INKEY$="3" THEN GOTO 379 
0 

3380 IF INKEYSs'^" THEN GOTO 395 
0 

3390 IF INKEY$="5" THEN GOTO 4-11 
0 

34-00 IF INKEY $ = '“6 ,# THEN GOTO 427 
0 

3418 GOTO 3358 
3420 LET K=7 
3430 CLS 

3440 PRINT RT 1,0;"OURL O 
PRESENTE?" 

3445 LET 0=1 
3450 INPUT X$ 

3455 GOSUB 5120 
3460 PRINT RT 2,0; #, P=CR$ 

3470 PRXNT RT 4,0;"©URL R 
CR07" 

3475 LET 0=2 
3480 INPUT X$ 

3485 GOSUB 512© 

3490 PRINT RT 5,0; "fl=CR$ 

3500 PRINT RT 7,0;"OUfiL O 
DE PERÍODOS?" 

3510 INPUT N 

3520 PRINT RT 8,0;"N= H ;N 
3530 LET R(K)=F2/F1-F1/((Níf2)fF 
2 ) 

3540SLET X = (1+R (KJ ) ** (-N) 

3550 LET S=R(K)iFl/F2-l+X 

3568 LET 2=X/R(K) +N^X/(R(K) f1) -i 

/R CK) 

3570 LET UrS/Z 

3580 LET RCK)=R(K1*+U __ 

3590 IF U <1/1000000 THEN GOTO 36 

10 

3600 GOTO 3540 
3610 GOSUB 4720 

3615 GOSUB 5850 

3620 PRINT RT 10.8; ’ HJJ—tfO"l 

B="; N$; " POR CENTO" 

3630 GOTO 4448 
3640 LET K=3 
3650 CLS 

3660 PRINT RT 1,0;"0URL O URLOR 
PRESENTE?" 

3665 LET Q=1 
3670 INPUT X$ 

3675 GOSUB 5120 


URLOR 


;X$ 

PRESTR 


X$ 

NUMERO 
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3660 PRINT RT 2,0;"P=CR$ ";X$ 

3690 PRINT RT 4,0,"OURL O UfiLOR 
FUTURO?" 

3695 LET 0=2 
3700 INPUT X$ 

3705 GOSUB 5120 

3710 PRINT RT 5,0;"F=CR$ ";X$ 
3720 PRINT RT 7,0;"©URL O NUMERO 
DE PERÍODOS?" 

3730 INPUT N 

3740 PRINT RT S,0;"N = ";N 

3750 LET R(K) =(F2/F1) ** Cl/N) -1 

3760 GOSUB 4720 

3765 GOSUB 5060 

3770 PRINT RT ÍQ.O; 

H = ,, ;N$;- POR CENTO" 

3780 GOTO 4440 
3790 LET K=9 
3600 CLS 

3810 PRINT RT 1,0;"©URL O URLOR 
PRESENTE?" 

3615 LET 0=1 
3820 INPUT X$ 

3625 GOSUB 5120 

3830 PRINT RT 2,0;"P=CR* ";X$ 

3840 PRINT RT 4,0, "OURL R PRESTR 
CRO?" 

3845 LET 0=2 
3850 INPUT X$ 

3855 GOSUB 5120 

3860 PRINT RT 5,0;"R=CR$ ";X$ 

3870 PRINT RT 7,0;"OURL R TRXR D 
E JUROS EXPRESSR EMPORCENT RGEli?" 


3875 LET 0=3 
3880 INPUT X $ 

3885 GOSUB 5120 
3890 PRINT RT 9,0; 
CENTO" 

3900 LET I=J/100 
3910 LET R(K)=(LN 
/I-Fl))/LN (1+1) 
3920 GOSUB 4670 
3925 GOSUB 5060 
3930 P RINT RT 11.0 


■RIODQSi 


3940 GOTO 4440 
3950 LET K = 10 
3960 CLS 

3970 PRINT RT 1,0; 
FUTURO'? ’■ 

3975 LET 0=1 
3980 INPUT X$ 

3*385 GOSUB 5120 
3990 PRINT RT 2,0; 
4000 PRINT RT 4,0; 
CRO?" 

4005 LET 0=2 


"J = ";X$," POR 
F2-LN I—LN CF2 




"OURL O UflLOR 

"F=CRÊ ";X4 
"OURL R PRÊSTR 


4015 GOSUB 5120 

4020 PRINT RT 5,0,"R=CR$ " ; X $ 

4030 PRINT RT 7,0;"OURL R TRXR D 
E JUROS EXPRESSR EMPORCENT RGEM?" 
4035 LET 0=3 
4040 INPUT X $ 

4045 GOSUB 5120 

4050 PRINT RT 9,0;"J=";X$;" POR 
CENTO" 

4060 LET I=J/100 

4070 LET R(K)=LN (FlfI/F2+1)/LN 
C 1 4*1) 

4080 GOSUB 4670 
4085 GOSUB 50S0 
4090 PRINT RT 11,0, 

BHSBBB=-;n$ 

4100 GOTO 4440 
4110 LET K = 11 


4120 CLS 

4130 PRINT RT 1.0;"OURL O UflLOR 
PRESENTE?" 

4135 LET 0=1 
4140 INPUT X$ 

4145 GOSUB 5120 

4150 PRINT RT 2,0;"P=CR$ ";X$ 


4160 PRINT RT 4,0;"OURL O UflLOR 
FUTURO?" 

4165 LET 0=2 
417© INPUT X $ 

4175 GOSUB 5120 

4180 PRINT RT 5,C;"F=CR$ ";X$ 

4190 PRINT RT 7,0;"OURL H TRXR D 
E JUROS EXPRESSR EMPORCENT RGEM?" 
4195 LET 0=3 
4200 INPUT X $ 

4205 GOSUS 5120 

4210 PRINT RT 9,0;"J=";X$;" POR 
CENTO" 

4220 LET I=J/10O 

4230 LET R(K)=LN (F2/P1)/LN (l+I 
) 

4240 GOSUB 4670 


4245 GOSUB 5060 
4250 PRINT RT 11,0; 


IRXQDOSl 


4260 GOTO 4440 
4270 LET K = 12 
4275 CLS 


NUMERO DE PE 


4-280 PRINT "OURL R TRXR DE JUROS 
EXPRESSR EMPORCENT RGEM ?" 

4-285 LET 0=3 
4-290 INPUT X $ 

4-295 GOSUB 5120 


";X$;" POR 


O;"OURL O URLOR 


O;"P=CRí ' 
O;"OURL O 


; x$ 

URLOR 


O; "fl=CR$ x$ 
o;"RPOS OURL PRE 
SRBER O SRLDO 


4-300 PRINT RT 2,0; 

CENTO" 

4-310 PRINT RT 3, 

PRESENTE?" 

4-315 LET 0 = 1 
4-320 INPUT X* 

4-325 GOSUB 5120 
4330 PRINT RT 4 
4340 PRINT RT 5 
DR PREST flCRO?" 

4345 LET 0=2 

4350 INPUT X $ 

4355 GOSUB 5120 
4360 PRINT RT 6, 

4370 PRINT RT 7, 

STRCRO UOCE QUER 
DEUEDOR?" 

43SO INPUT L 

4390 PRINT RT 9,0;"L=";L 
4400 LET I=J/i00 

4410 LET R(K) = (1/( (1+1) ** ( -L) ) ) * 
CF2* ( (1 + 1) ** (-L) -1) /I+Fl) 

4420 GOSUB 4670 
4425 GOSUB 4-870 
4430 PRINT RT 11,0; 

S=CR* ";N$ 

444© PRINT RT 13,0; x - 
4450 PRINT RT 1 4 ., 3; ‘ 

" RT 15 

, H » 1 vD j 3 1 , 

4460 PRINT RT 16 , O; "£?*OUTRR OPCR 
O.TECLR R &~SÍ";flT 17,31; 

u0ii 

4470 PRINT RT 18,0; "fSíMESMfi OPCR 
O.TECLR B Mã“;RT 19,31; 


SRLDO DEUEDO 




4480 PRINT RT 20,0; "IiP/PflRflR:0.; 
*P/OUTRO PROGRRMR : 

4490 print RT 2i , &: 


4500 IF INKEY$="fl“ THEN GOTO 320 

O 

4510 IF INKEY$="B" THEN GOTO 455 

0 

4520 IF INKEY$="P" THEN STOP 
4530 IF INKEY $ ="I" THEN GOTO 203 

0 

4540 GOTO 4500 
4550 IF K =7 THEN GOTO 3430 
4560 IF K =8 THEN GOTO 3650 
4570 IF K =9 THEN GOTO 3800 
4580 IF K =10 THEN GOTO 3960 
4590 IF K=ll THEN GOTO 4120 
4600 IF K = 12 THEN GOTO 4275 
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4610 Cl_S 

4620 RflND USR S405 
4630 RUN 
4640 CI_S 
4650 SRUE ••MS” 

4660 RUN 

4670 LET U=ÍINT (fl(K)*1000))/10 
4630 LET RÍK)=INT U/ÍB8 
4690 LET H=U — INT W 

4700 XF H>=.5 THEN LET RÍK)=R(K) 

+ . 01 

4710 RETURN 

4720 LET U=íINT (R CK ) i 180800) ) 1 

0 

4730 LET flCK)=INT U/100 
4740 LET H=U-INT U 

4750 IF H > =.5 THEN LET RíK)=fi(K; 

+ .01 

4760 RETURN 
4770 CLS 

4730 PRINT RT l,0;"OUflL R TflXfl D 

E JUROS EXPRESSO EliPORCENTfiGEM?" 
4785 LET Q=3 
4790 INPUT X$ 

4795 GOSUB 5120 

4300 PRINT RT 3,0; “J = ";X*; " POR 
CENTO" 

4310 PRINT RT 5,0;"OUflL O NUMERO 

DE PERÍODOS?" 

4620 INPUT N 

4830 PRINT RT 6,0;"N=";N 

4S40 LET I=J/100 

4850 LET X=(1+X)**N 

4860 RETURN 

4870 LET N $-STR $ R(K) 

4SS0 LET L=LEN NS 
4890 FOR U=1 TO L 

4900 IF N$(U) THEN GOTO 4930 

4910 NEXT U ' 

4920 LET N$=N$+",00" 

4930 LET NÍÍU) 

4940 LET N$=N$+"0" 

4950 LET L =U + 2 

4960 LET NÍ=N$( TO L) 

4970 LET L =L —3 
4930 LET L =L —3 

4990 IF L<=0 THEN GOTO 5050 
5000 LET C*=N$< TO L) 

5010 LET N$ÍL> =".•* 

5020 LET N$=N*(L TO ) 

5030 LET N$=C$+N$ 

5040 GOTO 4980 

5O50 RETURN 

5060 LET N t=STR$ R(K) 

5070 LET L =LEN N$ 

5080 FOR U=1 TO L 

5090 IF N*(U) =•■.'• THEN LET N*(U) 

— l« II 

5100 NEXT U 
5110 RETURN 
5120 LET L =LEN X$ 

5130 DXM B$(L) 

514-0 FOR U = 1 TO L 

5150 XF X$(U)<>". ,# THEN LET B$(U 
)=X$(U) 

5160 IF X$(U) =*•>•• THEN LET B$ OJ> 

— •• •• 

5170 NEXT U 

5180 IF 0=1 THEN LET Fi=UflL B$ 

5190 IF 0=2 THEN LET F2=URL B $ 

5200 IF 0=3 THEN LET J=UfiL B$ 

5210 RETURN 

5220 LET J$=5TR$ U 

5230 LET L =LEN U$ 

524.0 FOR U = 1 TO L 

5250 IF U$(U) ='•.•• THEN LET U$ (U) 

_ •• M 

5260 NEXT U 

5270 PRINT RT 1,0;"TRXR DE JUR05 
= POR CENTO" 

5280 RETURN 

O 


Continua no próximo número. 


PROTEJA SEU 
MICRO 



CONTRA: 

- PICOS DE VOLTAGEM 

■ TRANSIENTES DE TENSÃO 

■ RUÍDO ELÉTRICO 

- INTERFERÊNCIA: 

RÁDIO FREQÜÊNCIA (RF) 

POTÊNCIA: ATINGE ATÉ 1,5 KVA 
TENSÃO: 220V ou 110V 


ZENTRANX 

ELETRÔNICA, INDÚSTRIA E COMÉRCIO LTDA. 

NO BREAK ESTABILIZADORES DE TENSÃO 

Av. Vitor Manzini, 410/414 
CEP 04745 — Santo Amaro — S. Paulo 
Tels.: (011) 522-2159 e 548-0651 




Revendedores Autorizados 


Rio de Janeiro 
Seletronix 

Republica do Líbano 25-A 
Rio de Janeiro - RJ 
CEP: 20061 

Gachet 

R: Dr. ElJaick, 25 SI 5 
Nova Friburgo - RJ 
tel.: 22.4208 

VGC 

Av. Brasil, 10 S/07 
Araruama - RJ 
CEP: 28970 

ENTREUVROS 

A/. Rio BrancQ 156 - térreo 
Rio de Janeiro - RJ 

MC.S 

Vise de Piraiá, 303/217 
Rio de Janeiro - RJ 
tel.: 267.8597 

Pernambuco 
Eletrônica Isabele 

R: Perto Alegre 112 
Caruaru - Pfc 
CEP: 55100 

Alagoas 

Expoente 

Av. Siqueira Campos. 838 

Maceió - AL 

tel.: (082) 223.3979 

Sâo Paulo 
Imarés 

Av. dos Imarés, 457 
Sâo Paulo - SP 
tel.:61.4049-61.0946 

Fotoleo 

R: Boa Vista, 314 - 3 o andar 
Sâo Fbulo - SP 
tel.: 35.7131 R/32 


Fotoptica 

Alameda Juruá, 434 
São Fbulo - SP 
tel : 421.5211 

Ritz 

R: Frei Caneca. 7 
Santos - SP 
tel : 35.1792 


Bahia 

Oficcina 

Shopping Center Itaigara 
Ii40 - 1 ° piso 
Salvador - BA 
tel.:(071)248.6666 

Santa Catarina 


Computertand 

Av. Angélica. 1996 
São Fbulo - SP 
CEP: 01228 


Supermlcro Show 

R: dos Ilhéus, 10 li 6 
Florianópolis - SC 
tel.: 22.8770 


Livraria Poliedro 

R: Aurora, 704 

São Fbulo - SP 

tel.: 221.6764 

RC Microcomputadores 

Av Estados Unidos, 983 

Piracicaba - SP 

tel.: 33.7018 

Rio Grande do Sul 


Paraná 

Computique 

Av. Batel. 1750 
Curitiba - PR 
tel : 243 .1731 


Madison 

Av. Mal. Deodoro. 311 
Curitiba - PR 
tel.: 224.3422 


Advancing 

R: Andradas, 1560 galeria 
Malcon 518 Fbrto Alegre - RS 
tel.: 26.8246 

J.H. Santos 

FÇa. Otávio Rocha. 41 
Fbrto Alegre - RS 
CEP: 90000 


India Center 

R: Floriano Peixota 1112 conj. 
33/43 Santa Maria - RS 
tel.: (055) 221.7120 


Geremia Ltda. 

Av. Julio de Castilhos. 1872 
Caxias do Sul - RS 
tel : 221.1299 


Nordemaq 

Av Julio de Castilhos, 3240 
Caxias do Sul - RS 
tel : 221.3516 


Minas Gerais 
Computronix 

R: Sergipe, 1422 
Belo Horizonte - MG 
tel.:(031)225.3305 

Eletroródio 

R: Aquiles loba 441-A 
Belo Horizonte - MG 
tel.:(031)222.8903 

Micro Poços 

R: Assis Figueiredo 1072 
Pdços de Caldas - MG 
tel : (035) 721.1883 

Blow-Up 

Av. Floriano Peixota 396 
Uberlândia - MG 
tel.:235.1413-235.7359 

Brasília 


Memocards 

R: Amador Buena 855 
Ribeirão Preto - SP 
tel.:(016)636.0586 


Micromega 

R: Julio de Castilhos, 441 
1 °andar Novo Hamburgo - RS 
tel.:(0512)93.4721 


Digitec 

SCLN 302 bl.A lj.63 
Brasília - DF 
tel.:(061)225.4534 


• CREDENCIAMOS NCMOS REVENDEDORES FARA IODO O BRASIL ■ 
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O TK 2000 e o Apple 
semelhanças e diferenças 




MICROHOBBY 


Mapa de Memória do TK-2000 


0 mapa da memória do TK-2000 e 
do Apple possue algumas diferenças, 
(veja a figura 1). 

0 processador do TK-2000 — o 
6502 — tem condições de "enxergar" 
64k que estão sub-divididos em várias 
áreas, cada uma com uma função es¬ 
pecífica. 

Como você pode observar, os pri¬ 
meiros 2k de RAM (endereço 0 a 2047) 
estão reservados para o uso do siste¬ 
ma operacional e o BASIC e os últimos 
16 k (endereço 49152 a 65535) são re¬ 
servados para o controle de entrada e 
saída (porta II O) e a ROM. 

Nos 46k restantes existem duas 
áreas dedicadas a páginas de vídeo, 
cada uma ocupando uma área equiva¬ 
lente a 8 kBytes que armazenam as in¬ 
formações na tela. Um programa pode 
usar uma ou duas páginas de vídeo. Se 


utilizar apenas uma, a outra pode ser 
usada para outra finalidade. Porém, 
apenas uma página pode aparecer por 
vez. Por causa disso, precisamos sele¬ 
cionar qual a página que desejamos 
utilizar. Ao ligar o computador, a pri¬ 
meira página é automaticamente sele¬ 
cionada, ficando a outra disponível pa¬ 
ra o sistema. Se desejarmos utilizar a 
segunda página, como a área irá arma¬ 
zenar as informações contidas na tela, 
basta digitar MP e pressionar a tecla 
RETURN, que a segunda página de ví¬ 
deo apresentará as informações da te¬ 
la. Para retornar à primeira página, di¬ 
gite MA e pressione a tecla RETURN. 
Observação: a primeira página de ví¬ 
deo do TK 2000 e a primeira página em 
alta resolução do Apple II (em desta¬ 
que na figura 1), são similares em en¬ 
dereço e operação. 


Variável de Controle — Início do 
Programa 


Na memória do TK-2000 ainda 
existe 36 kBytes (do endereço 2048 ao 
8191 e do endereço 16384 ao 40959), 
disponíveis para programa. 

Na região reservada para uso do 
sistema, existe uma variável que con¬ 
tém o endereço em que o programa em 
BASIC terá início. Esta variável de con¬ 
trole no endereço 103 e 104 ('67' e '68' 
em hexadecimal respectivamente). Ao 
ligarmos o computador, esta variável 
aponta para o endereço 2049. Verifi¬ 
que isto, fazendo: 

PRINT PEEK (Í03) + 2 
56 * PEEK (í04) 

Apesar de 2048 ser o endereço ini¬ 
cial da área disponível para programa, 
o endereço de início do programa é 
2049. Isto ocorre porque o sistema co¬ 
loca como primeiro byte da área reser¬ 
vada, um zero (0). Experimente digitar: 

PRINT PEEK (2048) 

Portanto, o primeiro byte da área 
para programa, deve ser sempre um 
zero (0). 


Programas com mais de 6k 


Existem programas com mais de 
6 kBytes que, ao serem introduzidos 
no computador e ultrapassarem os 6 
kBytes disponíveis, entrarão em confli¬ 
to com a primeira página de vídeo. Es¬ 
te problema pode ser resolvido de duas 
maneiras: 

1 ) Alterando o endereço de início de 
programa 

No endereço 103 e 104 está o en¬ 
dereço-início da área de programa em 
BASIC que pode eventualmente ser al¬ 
terado, ou seja, podemos iniciar um 
programa em BASIC por exemplo, 
após a primeira página de vídeo e uti¬ 
lizar esta página como a área que irá 
armazenar as informações da tela. 
Deste modo, a segunda página de ví¬ 
deo fica disponível para programa e te¬ 
remos uma área de 32 kBytes para in¬ 
troduzir um programa em BASIC. Isso 
é obtido digitando-se os seguintes co¬ 
mandos diretos: 

L0MEMSÍ6384 
P0KE i03,í 
P0KEÍ 04,64 
P0KEí.ó3è4,Ü 
NEW 


Mapa de Memória 




9WW 

uso do sistema (1 k) 

Uso do sistema (2k) 


$03FF 



yith/v 

página 1 de texto e 
baixa resolução (1 k) 




$07FF 

$07FF 



<ooaa 

vwJW 

iflooa 

yVOWS 

página 2 de texto e 
alta resolução (1k) 

RAM (6k) 


$0BFF 




$ecM 

RAM (5k) 


$1FFF 

$1FFF 



$2000 

$2000 


primeira página 



página 1 em alta 

vídeo (8k) 

$3FFF 

$3FFF 

resolução (8k) 


MOTfl 

$4000 

página 2 em alta 
resolução (8k) 

RAM (24k) 



$9FFF 

$5FFF 


segunda página 

$A000 

4ci|fln 

WWM 

RAM (24k) 

vídeo (8k) 

$BFFF 

$BFFF 


$C00fr 

$C 000 


1/0(256 bytes) 

$C0FF 

$CFFF 

l/O (4k) 


$C100 

$D00Q 


ROM (16k) * 

$FFFF 

$FFFF 

ROM (12k) 


TK-2000 Apple 


* 15 e 3/4 kBytes 

Figura 1 































A instrução LOMEM 16384 define 
como limite inferior da área a ser utili¬ 
zada pelo programa em BASIC, o en¬ 
dereço 16384. 

As instruções POKE 103, 1 e PO- 
KE 104, 64 definem 16385 como o en¬ 
dereço inicial de programa em BASIC. 
Verifique isto, fazendo: 

PRINT PEEK (í03) + 2 
56 * PEEK (í04) 

A instrução POKE 16384, 0 zera o 
endereço 16384, porque o primeiro by¬ 
te da área reservada para programa de¬ 
ve ser zero. 

O comando NEW apaga todo o 
conteúdo da memória RAM do TK- 
2000. 

2) Utilizando a segunda página de ví¬ 
deo 

Uma outra opção é uílizarmos a 
segunda página de vídeo para armaze¬ 
nar as informações da tela, permitindo 
assim, um acesso a 38k de RAM. Isto é 
obtido através do comando MP que li¬ 
bera a primeira página de vídeo para a 
utilização desta área com programa. 

Observação: a) 0 comando LOMEM 
define o limite inferior da área para 
variáveis em BASIC. Também existe 
um comando HIMEM que define o li¬ 
mite superior da área reservada para 
programa em BASIC (a RAMTOP do 
TK-85). Este comando deve ter o se¬ 
guinte formato: 

HIMEM: endereço 

onde este endereço deve ser maior do 
que 2048 e menor ou igual a 49151. 
Portanto, se você deseja delimitar uma 
área para o seu programa, basta fazer: 

LOMEM: x 
POKE 103, z 
POKE 104, w 
POKE x, 0 
HIMEM: y 
NEW 

ONDE: 

x ^ 2048 

z = (X + 1) -256*INT 
((x + 1) / 256) 
w = INT((x + 1) / 256) 

2048 y ^ 49151 


importante: Cuidado com as páginas 
de vídeo. 

b) 0 apêndice F do manual do TK- 
2000 também explica estes dois mé¬ 
todos para carregar programas çom 
mais de 6k 
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Comando APPLE x TK-2000 


Basicamente, os códigos dos co¬ 
mandos do TK-2000 e do APPLE são 
os mesmos. Porém, existem alguns co¬ 
mandos que não são compatíveis, cau¬ 
sando erro quando rodado no TK-2000. 
São estes os comandos: 

1) O comando FLASH no APPLE faz 
com que os caracteres do vídeo pis¬ 
quem. Porém, este comando não exis¬ 
te no TK-2000, mas o seu código é o 
mesmo do comando SOUND do TK- 
2000 (código = 159) que, especifica¬ 
mente, controla a tonalidade e a dura¬ 
ção da nota gerada na televisão, de¬ 
vendo ter o seguinte formato: 

SOUND x,y 

onde x representa a nota a ser tocada e 
y a duração da nota. Por exemplo: 

SOUND 45,30 

emite a nota Ml. Maiores detalhes so¬ 
bre este comando, veja o manual do 
TK-2000 nas páginas 177 e 183. 

2) Oaumento IN^do APPLE selecio¬ 
na o periférico de entrada. Este co¬ 
mando não existe no TK-2000, porém 
o comando ASS no TK-2000 possui o 
mesmo código do comando IN^#.0 
comando ASS executa o mini-assem- 
bler no TK-2000. 

3) O comando PR ^do Apple selecio¬ 
na o periférico de saída. No TK-2000, 
o comando DSK.que efetua o boot 
(carregamento) do DOS do disquete, 
se uma unidade estiver conectada no 
TK-2000, possui o mesmo código do 
comando PR ■&. 

Programas que contenham um 
destes três comandos do Apple 
( FLASHJN^PR^Jquando carrega¬ 
dos e rodados no TK-2000, ele acusa 
erro de sintaxe. Isto porque são carre¬ 
gados códigos, interpretados pelo sis¬ 
tema. Então ao rodar o programa, o 
sistema irá interpretar estes códigos 
que foram carregados. Por exemplo: 
num determinado programa existe o 
código 159; no Apple, este código se¬ 
ria interpretado como o comando 
FLASH, mas no TK-2000 seria inter¬ 
pretado como o comando SOUND. 
Porém, seu formato não estaria corre¬ 
to e causaria erro de sintaxe. Isto ocor¬ 
re com estes três comandos do APPLE 
que possuem comandos com o mesmo 
código no TK-2000. 

O TK-2000 ainda possui alguns 
comandos que não existem no Apple. 
São eles: 

1) comando MA: este comando sele¬ 
ciona a primeira página de vídeo como 
a área que armazenará as informações 
da tela. 


2) comando MR seleciona a segunda 
página de vídeo como a área que irá 
armazenar as informações da tela. 

3) comando LM: executa o monitor- 
dissassembler. O endereço a partir do 
qual deseja-se dissassemblar, deve ser 
fornecido em hexadecimal. Para sair 
do monitor-dessassembler pressione 
as teclas CONTROL-C simultanea¬ 
mente e depois a tecla RETURN. 

4) comando TK-2000: este comando 
executa uma rotina em Linguagem de 
Máquina a partir do endereço '03F8'. 

5) comando MOTOR: o controle de 
dois gravadores pode ser obtido com 
este comando, que deve ser digitado 
com o seguinte formato: 

MOTOR, x 

onde x deve ser um número inteiro. Os 
quatro possíveis casos para este co¬ 
mando: 

MOTOR, 0 — desativa o gravador A 
MOTOR, 1 — ativa o gravador A 
MOTOR, 2 — desativa o gravador B 
MOTOR, 3 — ativa o gravador B 

Todos estes comandos, assim co¬ 
mo outros, serão melhor explicados 
nos próximos números. 


Teclado do TK-2000 


Os TK-maníacos devem concor¬ 
dar que as teclas com os comandos in¬ 
teiros facilitam a digitação de um pro¬ 
grama. Um bom exemplo é o teclado 
do TK-85 onde comandos como 
PRINT, PEEK e outros podem ser digi¬ 
tados por inteiro. 

A Microdigital elaborou um tecla¬ 
do profissional para o TK-2000, de to¬ 
que suave e preciso como o de uma 
máquina de escrever elétrica, onde os 
comandos podem ser escritos letra por 
letra, como se estivesse datilografan¬ 
do. Por exemplo, o comando PRINT 
pode ser digitado assim: P,R,I,N,T. 
Porém, existe um outro meio onde, 
pressionando-se simultaneamente as 
teclas SHIFT, CONTROL e uma tecla 
qualquer, obteremos um comando. 
Por exemplo, pressionando-se simul¬ 
taneamente as teclas SHIFT, CON¬ 
TROL P obteremos o comando PRINT. 
Veja na figura 2 os comandos que po¬ 
dem ser digitados por inteiro como o 
comando PRINT. 

Este tipo de teclado, além de faci¬ 
litar a digitação de um programa, dimi¬ 
nui o índice de digitação de comandos 
num programa. 

Você deve ter notado que o tecla¬ 
do não possui a tecla NEW LINE que o 
TK-85 possui. O TK-2000 possui a te¬ 
cla RETURN que deve ser pressionada 
para que o computador saiba que a ins¬ 
trução ou instruções que se está digi¬ 
tando está completa. 







IMPORTANTE: O comando PRINT é o 
único comando que pode ser digitado 
de três formas: letra por letra, pressio- 
nando-se as teclas SHIFT e CONTROL 
P simultaneamente, ou digitando-se a 
interrogação "?". O sistema operacio¬ 
nal do TK-2000 interpreta a interroga¬ 
ção como o comando PRINT. Experi¬ 
mente digitar: 


iG?"MICROHOBBY" 

e depois digite LIST. Interessante não? 

No próximo número, veremos 
mais sobre o teclado e seus comandos. 
Observação: Não foi mencionado, 
mas após digitar as instruções citadas 
neste artigo você deve sempre pressio¬ 
nar a tecla RETURN. 


Microhobby e o TK-2000 


A revista Microhobby desde a edi¬ 
ção 4 publica não só programas para o 
TK-83 e compatíveis, mas também 
programas para o Apple. Todos estes 
programas foram testados e a maioria 
pode ser rodado diretamente no TK- 
2000 sem necessitar qualquer altera¬ 
ção. Porém, alguns programas pos¬ 
suem instruções que não são compatí¬ 
veis com o TK-2000, devido a uma di¬ 
ferença no sistema e no mapa da me¬ 
mória (veja a figura 1), além da incom¬ 
patibilidade de algumas instruções. A 
seguir, estão relacionadas as modifi¬ 
cações que devem ser feitas para que 
os programas para o Apple publicados 
nas revistas possam ser rodados no 
TK-2000. 

1) programa TATUZÃO Microhobby 
número 4 — página 26): eliminar as li¬ 
nhas 490 e 500 e digitar a linha: 


490 GET X<b: HOME: END 


2) programa CALENDÁRIO (Micro¬ 
hobby número 4 — página 28): elimi¬ 
nar as linhas 200 e 210 e digitar a linha: 


200 GET XS: GOTO 10 


3) segundo programa TWO-LINERS 
(Microhobby número 4 — página 29): 
alterar a linha 2 para: 


2 FOR I = í TO 30: 
PRINT "PAGINA UM D 
E TEXTO";: NEXT : FO 
R C = í tO LEN (Htt): 

POKE 5ií + C, ASC < 
MID‘1 (H*.C. 
í ) ) í28: ÍTE&T : CALL 
- Í52 


4) programa DESMONTADOR (Mi- 
crohobby número 6 — página 22): al¬ 
terar a linha 420 para: 


420 DATA 165^6,133,5 
8,165,7,i33,á9,i69,13 
2.99,£54,32,67.240.72 
,í04,16,549,234,201,1 
31,208,239,96 


5) programa TWO-LINERS (Micro¬ 
hobby número 6 — página 23): alterar 
a linha 2 para: 


2 FOR A = 0 TO 270 
STEP C: HF LO I' D, E T O 
A.B * NEXT : NEXI s L A 
LÍ' 59258 s FOR I * 1 f 
0 100:2 = PEEK < - 1 
6336): NEXT : GOTO 1 


6) programa AMPULHETA (Micro¬ 
hobby número 5 — página 31): alterar 
a linha 360 para: 


360 Z = INT < 7 * R 
ND(1) ) + 1 


Observação: 

Os programas Tradutor de Palavras 
e Tradutor de comandos são progra¬ 
mas que necessitam do DOS. Futura¬ 
mente falaremos sobre o DOS para o 
TK-2000 e voltaremos a comentá-los. 

Para os "sortudos" que já pos¬ 
suem um TK-2000, eis aqui um progra¬ 
ma para você se divertir e aprender um 
pouco mais sobre o TK-2000. 


10 HGR2 

20 HCOLOR = INT ( 

RND (1) * 6) 

30 J = INT ( RND (1 
) * 260) 

40 K = INT ( RND (1 
) * 140) 

50 HPLOT J,K TO J + 

10.K TO J + 10.K + 1 
o Tõ j,k + ío rõ J , K 
60 GOTO 30 O 


Certamente entre nossos leitores 
já existe um número considerável de 
possuidores do TK 2000. Assim sendo, 
acabamos de abrir esta nova seção, 
que suprirá as necessidades destes lei¬ 
tores. 

Desta forma, estamos inauguran¬ 
do também uma nova fase da revista, 


Nota do Editor 

onde, em coexistência pacífica, esta¬ 
rão os computadores da Unha TK tradi¬ 
cional, o TK2000, o Apple e o TRS-80, 
isto sem prejuízo do nosso leitor que 
vem acompanhando nossa revista des¬ 
de seus primeiros números. 

.0 TK 2000 passará a receber o 
mesmo apoio que a revista vem dando 


aos computadores TK 83 e 85 e seus 
compatíveis. Assim, teremos também 
Dicas, Fita do Mês, Dissecando e ou¬ 
tras seções da revista tanto para o TK 
83 e 85 como para o TK-2000. Para um 
futuro próximo, também ampliaremos 
o espaço dedicado a outras máquinas, 
aumentando o número de páginas da 
Microhobby. 


MICROHOBBY 21 



























































































































































1 

0 

_L CO 

‘0 

0 

E 

co “O 

D 

E 

O 

O 

cr 0 
-C 

co 

O 

co c 

co 

;u 

sU 

*z 

□5 

õ 

. © 

s £ 


s> ® 

5 CD 

o 

> ■*-» 
'Z _çu 

Ô CL 
-2 (0 
O-S 
ofi 


O ‘g 

I 8 § 

■ .2 <D 

* D § 

: CO 

: 'co o co 
> « § * 
o co 

’ f!a _ I 

* O-Ic « 


C J2 

.§ t 


S |JS E-S-E s"° ^ 

Tt flfl m àm pfs O TT 


*= CO 

-O S- 

3 C<C0 

OT S ts 

® _o a> 

E ro (D 
3 CO T3 

« 9 § 

E a 

3 co « 

! 8 i 

!:I 

® -o Q. 

^3-8 

so co 


4B 8 i 
í=s-g 

■S^ a' 

Jl O C 

o o 2 
a o cg 

-% o 05 

^Ço 

<g 55 a. 

4_ w o w E 

i > Ü- S r < 


co 

o 

co 

05 

■o 

O 

“O 

c 

co 


05 


co so 

“■ s. 

c 

co 


2 Rg. 

«D "O O 


co p w 

j 8.1 

“ ü 


80-88 


^00 
E "o 

Jr m 1 — 

n° O 

co O 
co co 

S © 

> “O 
















V 


J 


Socorro! Socorro! — grita a moci¬ 
nha, do alto da plataforma. 

O gorila, mais conhecido como 
Kong, está furioso e impedirá a qual¬ 
quer custo que você (o mocinho da 
história) a salve. 

Para impedí-lo, o horrível Kong 
lançará barris por toda a plataforma e 
você terá que saltá-los um a um e subir 
os degraus da escada, para alcançar 
o topo da plataforma, onde está a 
desprotegida mocinha, gritando deses¬ 
peradamente por você. 

Para salvá-la, você disporá de três 
vidas e os pontos serão concedidos 
de acordo com o tempo gasto na che¬ 
gada ao topo. Quanto menor for o 
tempo gasto por você para chegar até 
a mocinha, mais pontos você ganhará. 

Chegando ao topo da plataforma, 
você terá salvo a mocinha e, como 


não podia deixar de ser, tudo termina¬ 
rá num emocionante final. 

Você sairá de cima da plataforma, 
no interior de um biplano e sobrevoará 
o Kong, metralhando-o logo em se¬ 
guida. 


Os tiros atingirão as ligas de ferro 
da plataforma e esta rachará ao meio, 
provocando uma inevitável queda do 
Kong plataforma abaixo, até que este 
acabe se espatifando no solo. 

Termina assim, com um maravi¬ 


lhoso beijo, a trágica e emocionante 
história de amor! 

Quando digitar o programa, tome 
muito cuidado para reproduzir fielmen¬ 
te todos os gráficos impressos na lis¬ 
tagem. 




























KONG 


3 SLOÜ 

4> CLS _ 

5 POKE 164-18,0 
S LET U=3 

7 PRINT RT 1,25; M gB M 

8 LET X$ = " — > 


9 LET S=0 
10 LET G =500 
20 LET C = 1 
30 LET D =21 
4*0 LET F = — 1 
50 LET E = 1 
50 LET R =22 
70 LET 6=3 

20 0 print rt 7 . 0 : "hES 

201 PRINT RT 0,25; 

210 PRINT RT 11.0; 

sa^aa b n Essa essh 









•HSSSS rera 




W0O0««CíWÇ>in 


220 PRINT PT 15.0; 

resssa s g*&x-;jsaS*g S5gi_ 

230 PRINT RT IS . O: •• ggg-3 

ES ES3 M- 

240 PPINT RT 23,0;" 

250 FOR N = i TO 4- 
260 PRINT RT 7+N,O;"H";RT 11+N, 
30; "H"; RT 15+N,0;"H";AT 19+N,30; 

270 NEXT N 

280 PRINT RT 8,5;"H H «■ 


290 PRINT RT 5,5;"H 
300 PRINT RT 4., 5; "H 


H 


>3XX*! 


310 PRINT RT 3,7;" 
320 PRINT RT 2,6;" 


13** 

;rt 1 , 7 ; 


’;rt 21 , 0 ; 

•• 

# ^ • 

;; fl 


330 PRINT RT 20,0;", 

"B2"; RT 22,0; "13" 

340 PRINT RT 0,0;“PTOS: 

;"BONUS: ”;g 

350 PRINT RT 10,C;~ O O O 
T 14, D;" O O O -;RT 16, C; " O 
O O ";RT 22,0;" O O O " 

351 PRINT RT R,B; 

352 LET R$ =CHR$ PEEK (PEEK 1639 
8 +256 JPEEK 16399) 

353 PRINT RT R,6;"l" 

354 IF R$="0" THEN GOTO 9000 

360 LET C=C+E { 

370 LET D=D+F 

37 iL, PRINT RT 6,16; "B **"; RT 4-,16 
í "a^S";OT 1,11; "HELP" 

376 PRINT RT R+1,B; 

377 LET B*=CHR$ PEEK CPEEK 1639 

8+256*PEEK 16399) 

378 IF B$ = " " THEN GOTO 600 

380 IF C=21 THEN LET E=-l 
390 IF C=2 THEN LET E=1 
400 IF D =2 THEN LET F = 1 

410 IF 0=21 THEN LET F=-l 

411 LET G =G-1 

4-12 IF G <O THEN PRINT RT 14,5;" 
5EU TEMPO ESGOTOU " 

413 IF G<0 THEN LET U=0 

414 IF G <0 THEN GOTO 9000 

415 IF fl =6 RND B=5 THEN GOTO 91 
OO 

460 PRINT RT A,B;fl$ 

470 IF INKEY*s"7 M RND fl*=“H" TH 
EN GOSUB 6000 

480 LET B=B+(INKEV*="8" RND B<3 
0)-(INKEY$="5" RND B>0) 

490 IF INKEY$a"I“ THEN GOSUB 70 

ee 

500 IF INKEY*="T" THEN GOSUB 80 
OO 

B";RT 4,16 


505 PRINT RT 6,16; 
; "; RT 1,11; " 

510 GOTO 340 

600 PRINT RT R,B; " 


;RT R+1,b; 


610 PRINT RT R+2,B; 

620 LET G $ =CHR$ PEEK (PEEK 1639 
B+2S6*PEEK 16399) 

630 IF G$<>" " THEN LET A=A + 1 

631 IF G$ < >" " THEN GOTO 9000 

632 LET R=R+1 
65C3GOTO 600 


6000 FOR N=R TO R-3 STEP -1 

6001 PRINT RT N,B;"I" 

6002 FOR U=1 TO 3 

6003 NEXT U 

6004 PRINT RT N,B;"H" 

6005 NEXT N 

6006 PRINT RT N,B;"i";RT N,B;“ “ 

6007 LET R=R-4 
6009 RETURN 



u t x » / n » n~c / UTC/ m , 

2;"r';RT A- 2 , 3 + 2 ;" ";rt a-i,b+2; 
"V*;rt p-i,b+2;" " 

7001 PRINT RT R,B+2; 

7002 LET U*=CHR* PEEK (PEEK 1639 
8+256JPEEK 16399) 

7003 IF U $ = "0" THEN GOTO 9000 

7004 PRINT RT R,B+2; "I *; RT A, 8+2 
• •• •• 

^O10 LET B=B+2 
702O RETURN 

3000 PRINT RT R,B," ";RT fl-l,B;" 

V; RT fl -1, B; " RT R-2.B; " 1";RT 
R-2,B;" ”;rt r-2,8-1;"J";RT r- 2, 
B-l;" " ; RT R—2,B— 2 ; "S*‘;RT fl-2,B- 

2;" ";RT fl- 1 , B-2; " I“; rt n-i,B-2; 
•• •• 

6001 PRINT RT R,B-2; 

8002 LET U$=CHR$ PEEK (PEEK 1539 

8+256*PEEK 15399) 

8003 IF US= m O" THEN GOTO 9000 
8004. PRINT RT R , B-2; " I” ; RT R, B-2 


• •Hl»» 


BOIO LET B =B—2 
8020 RETURN 
9000 FOR N = 1 TO 20 
9010 PRINT RT R,B;"|";RT fl,B; 

RT A,B; " 1”; RT A,B;" — ~ 

9020 NEXT N 

9021 IF U=0 THEN PRINT RT 10,10; 
" GOME OUER " 

9022 IF U=0 THEN PRINT RT 18,1;" 

OUER UOGAR DE NOUO ? (S^N) " 

9023 IF U=0 RND INKEV*="S" THEN 

9024 IF U=0 RND INKEY$=”N" THEN 
STOP 

9025 IF U=0 THEN GOTO 9023 

9026 CLS 

9027 IF U=3 THEN PRINT RT 1,25;" 

EU" 

9030 IF U=2 THEN PRINT RT 1,25;“ 

B " * 

9035 IF U=1 THEN PRINT RT 1,25;“ 

9040 LET U=U-1 
9070 GOTO 10 
9100 LET S=S+G 

9103 PRINT RT 0,0;"PTOS: "; S; “ " 

;"BONUS: ";G 

9104 FOR 0=1 TO 3 

9105 PRINT RT 3,19;"S"; " 
>"; 

9110 FOR F =24 TO 19 STEP -1 
9120 PRINT RT 3,F;" " 

9130 NEXT F 
9135 NEXT O 
9150 PRINT RT 1,5:X* 

9160 FOR F=5 TO 11 
9165 PRINT RT l,F;Xt 
9170 NEXT F ' 

9180 FOR F=S TO 8 

flfO,PRINT RT F-1,F+11; ".";flT F- 
X.r+ll; " 

9195 NEXT F 

5 20C \« PRI,srr RT 7*15; **;AT 8,1 

S; ” E3 **; ftT 9,15;" §3" 

9205 FOR F=3 TO 19 

9210 PR INT RT F,16;" R M ;RT F-H, 
16; RT F+2, 16; " "; RT F+3, 

16; * ,C: &* % ;RT F -1,17; ” 

9215 NEXT F 

9217 PRINT RT 19,17;" " 

9218 PRINT RT 20,15;" 

9219 PRIÍSTT RT 21,15," 

9220 PRINT RT 22.15; ** 1 P~ 

9225 FOR F = 1 TO 60 

9225 NEXT F 
9227 LET G=500 
9230 CLS 
9270 GOTO 20 
9275 STOP 
928© SRUE "KONS" 

9290 RUN o 
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FITA DO MÊS 


Mazogs 


Gustavo Egidio de Almeida 


Para esta edição selecionamos um 
programa que impressiona por suas 
qualidades criativas e técnicas. MA¬ 
ZOGS é um jogo, que pode ser rodado 
em computadores como: TK-83, TK- 
85, CP-200, RINGO, etc. . . 

Este software é comercializado 
pela SOFTSCIENCE SISTEMAS COM¬ 
PUTACIONAIS LTDA., localizada em 
São Paulo, Curitiba e Paraná e nos 
foi enviado contendo um manual expli¬ 
cativo, o qual descreve com minucio- 
sidades, todas as características técni¬ 
cas e regras para um máximo aprovei¬ 
tamento do jogo. 


Neste jogo você é colocado às 
portas de um grande e complexo labi¬ 
rinto, no qual contém em seu interior, 
um tesouro. 

0 objetivo do jogo é encontrar o 
tesouro e trazê-lo de volta, para fora do 
labirinto. Porém para conseguir este 
feito, você terá que enfrentar terríveis 
monstros: os MAZOGS. (fig. 1) 

Caso sobreviva a seus ataques, 
você poderá vir a morrer no labirinto, 
caso encontre-se irremediavelmente 
perdido. Entretanto você poderá obter 
ajuda para completar a missão. À cada 
missão será gerado um labirinto dife¬ 
rente, contendo no seu interior prisio¬ 
neiros, espadas, mazogs e o tesouro. 

Você será colocado na entrada e 
não poderá ver todo o labirinto duran¬ 
te o jogo. Verá apenas a parte onde vo¬ 


cê está e seus arredores. Esta parte se¬ 
rá ampliada durante a transferência pa¬ 
ra o vídeo, e todos os acontecimentos 
no interior do labirinto, serão transfor¬ 
mados em imagens animadas. Para 
carregar o programa é usado o coman¬ 
do LOAD " " ou LOAD "MAZOGS”. 

Ao ser carregado, o programa 
apresenta no vídeo três níveis de difi¬ 
culdade (Fig. 2). 

1 - TENTE SAIR 

2 - ENFRENTE 0 DESAFIO 

3 - MAZOGS LIVRES 

Veja figura 2 

Ao escolher um destes três níveis, 
será gerado o labirinto cuja construção 
dura entre 5 a 10 segundos. 

Após isso, serão mostradas na te¬ 
la as teclas disponíveis para mover-se 
no labirinto. Poderão ser usados três 
conjuntos de teclas para o movimento 
nas quatro direções. São eles: 

W, S, H, J 
W, A, H, X 

e o conjunto mais usual de teclas em 
jogos, que são as setas 5, 6, 7, 8, 
possibilitando também o uso do joys¬ 
tick (Fig. 3). 

Ocasionalmente, surgirá na tela a 
mensagem: "o labirinto está sendo re¬ 
construído". 

O programa inicialmente constrói 
um labirinto. Caso este não seja sufi¬ 
cientemente complexo, será então re- 
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construído. Após ser pressionada algu¬ 
ma tecla, será mostrada a maior parte 
do labirinto, que será possível visuali¬ 
zar durante o jogo. Esta parte é deno¬ 
minada visão e pode ser requisitada no 
jogo pela tecla "V". 

Uma faixa cinza divide ao meio o 
labirinto, parecendo ser uma divisão 
entre dois labirintos. Trata-se, porém, 
do mesmo labirinto. 

0 que acontece é que você pode 
entrar nele pela direita ou pela esquer¬ 
da, conforme preferir. Sua escolha irá 
depender do que você pode ver nes¬ 
sas áreas limitadas, (Fig. 4). Os símbo¬ 
los que nelas podem aparecer são os 
seguintes: 

X - é um MAZOG 
P-éum PRISIONEIRO 
E — é uma ESPADA 
T-éum TESOURO 

No meio de uma visão você pode¬ 
rá ser representado, por qualquer nú¬ 
mero ou símbolo. 

Pressionando alguma tecla, você 
obtém informações sobre a situação 
atual do jogo. Essas informações são 
obtidas através do relatório da situação 
que pode ser fornecido a qualquer mo¬ 
mento do jogo, digitando a tecla Y. 
(Fig. 5). 

O relatório da situação varia de 
acordo com o nível de dificuldade es¬ 
colhido. 

NÍVEL 1: O relatório fornecerá apenas o 
número de movimentos para chegar ao 
tesouro. Este número poderá variar en¬ 
tre 120 a mais de 400, valendo este nú¬ 
mero para qualquer um dos três níveis. 
NÍVEL 2: Caso você caminhe em exces¬ 
so em busca do tesouro, provavelmen¬ 
te morrerá no interior do labirinto. 

O número de movimentos que vo¬ 
cê terá, será igual a quatro vezes o ne¬ 
cessário para ir da entrada do labirinto 
até o tesouro. 

Informes e especialmente visões, 
também terão seu preço, em forma de 
movimentos. Para ganhar mais movi¬ 
mentos você terá que matar MAZOGS. 

NÍVEL 3: 

Basicamente como o nível 2, ape¬ 
nas com alguma exceção. O número 
de movimentos ganhos pelo ataque e 
morte de MAZOGS é maior, mas a ta¬ 
refa é mais difícil. 

As visões, como foi dito anterior¬ 
mente, são conseguidas através da te¬ 
cla V e diferenciam de acordo com o 
nível de dificuldade escolhido. 

NÍVEL 1: 

A visão deve ser requisitada quan¬ 
do se está perdido, procurando uma 
espada, um prisioneiro, ou para ver os 
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caminhos nas áreas ao seu redor. 

Neste nível, as visões poderão ser 
fornecidas em número ilimitado de 
vezes. 

NÍVEL 2: 

Pressionando-se V para uma vi¬ 
são, você apagará automaticamente 
qualquer rota que aparece no labirinto, 
tanto indo em direção ao tesouro, ou 
saindo do labirinto. 

NÍVEL 3: 

Serão mais demoradas e custarão 
menos em movimentos. Como será ex¬ 
plicado a seguir, neste nível os MA¬ 
ZOGS percorrem o labirinto, ou seja, 
ao pedir uma visão certifique-se que 
sua posição é segura. 

Agora que você já sabe como e 
quais teclas são utilizadas, vamos à 
descrição do que ocorre em sua volta, 
no labirinto. 

Após pressionar alguma tecla, vo¬ 
cê estará apto a iniciar o jogo. 

Acima de você estará uma espada. 

As espadas são utilizadas para 
matar MAZOGS, podendo ser utilizada 
apenas uma por vez, não sendo pos¬ 
sível fazer uma coleção de espadas. 

Caso você lute com um MAZOG, 
sem espada, terá 50 por cento de chan¬ 
ces de sair com vida. 

Serão espalhadas aleatoriamente 
40 espadas no labirinto, sendo que par¬ 
te delas estará em local inacessível. Os 
MAZOGS no nível 1 do jogo são fi¬ 
xos, ou seja, você poderá caminhar em 
direção a eles sem correr perigo. No ní¬ 
vel 2 e 3, os MAZOGS estarão ativos e 
não será possível passar ao lado deles 
sem ser atacado. (Fig. 6) 

Ao percorrer o labirinto, serão en¬ 


contrados em pontos diferentes, pri¬ 
sioneiros. Estes prisioneiros podem ser 
reconhecidos pelo incessante piscar 
de olhos. Se você mover-se em direção 
a um prisioneiro, seus olhos deixarão 
de piscar por instantes. Em seguida ele 
lhe indicará o caminho do tesouro, 
através da mensagem "POR AQUI". 

A partir desse momento, você de¬ 
ve caminhar o mais rápido possível, em 
direção ao tesouro. Em aproximada¬ 
mente dez segundos, as mensagens 
desaparecerão e você terá que achar 
novamente outro prisioneiro, até que 
sua rota seja completa, tanto em bus¬ 
ca do tesouro, como em sua jornada 
de regresso. Quando chegar ao tesou¬ 
ro, mova em direção a ele. 

Caso esteja com uma espada, o 
tesouro será trocado com ela e vice- 
versa. 

Ao regressar com o tesouro ao 
ponto em que iniciou sua jornada, será 
recepcionado por um amigo e a saída 
aparecerá. 

Ao final de cada jogo, será dada a 
você, a opção de iniciar outro ou dar 
uma olhada no labirinto que você aca¬ 
bou de percorrer. 

Pressionando-se L, a parte supe¬ 
rior esquerda do labirinto aparecerá. 
Usando as teclas do cursor, você po¬ 
derá fazer o labirinto correr pelo vídeo 
e observá-lo em sua totalidade. Pres- 
sionando-se P aparecerá em destaque 
a rota desde a entrada do labirinto até a 
posição original do tesouro. Sua últi¬ 
ma posição será marcada por um qua¬ 
dradinho cinza. Pressionando-se 0 a 
sua rota será apagada. A tecla N inicia¬ 
rá uma nova partida. (Fig. 7) 












MICROHOBBY 27 


































































Você acabou de comprar o seu computador, compatível 
com o TK 83, retirou-o da caixa, instalou-o na TV, ligou sua 
fonte, apareceu o K invertido no canto inferior do vídeo, 
exatamente como dizia o manual. 

— Muito bem, — pensa você — mas... 

E agora? 


A seção Eagora ?pretende mostrar 
a você um programa simples, comen¬ 
tando, indicando a você, passo a pas¬ 
so, o que fazer para digitá-lo. Daremos 
ênfase aos erros mais comuns, comen¬ 
tando-o para que você tome consciên¬ 
cia da sua possível existência, evitan¬ 
do-os em seus futuros programas. 

Caso você já tenha alguma habili¬ 
dade em digitar, você pode se divertir 
assim mesmo com o programa que 
apresentaremos. Brinque com ele, mo¬ 
difique-o a seu bei prazer, acrescen¬ 
tando, retirando ou modificando li¬ 
nhas. Nestas experiências a gente 
sempre aprende alguma coisa, nem 
que seja o que não se deve fazer . . . 

Boa sorte! . . . 


Corrida de Cavalos 


Escolhemos como primeiro pro¬ 
grama dessa seção, um jogo que ocu¬ 
pa apenas 16 linhas e que simula uma 
corrida de cavalos. 

Concorrem no páreo dois cavalos 
numerados e, tanto o primeiro como o 
segundo, têm chances iguais de ven¬ 
cer o páreo. 

Façam suas apostas e boa sorte! 
UNHAI: 

A instrução REM, significa RE¬ 
MAR KS, comentários. Serve para dar 
algum lembrete, título ou explicar algu¬ 
ma rotina que vem logo após essa li¬ 
nha (Fig. 1). 

LINHAS 5 e 6: 

A instrução LET serve para atri¬ 
buir algum valor à uma variável (Fig. 2). 

No caso das linhas 5 e 6 são atri¬ 
buídos às variáveis A e B o valor 0. 

LINHA 7: 

Atribui valores alfanuméricos à va¬ 
riável A$ (STRING). 

No interior de uma "string", po- 
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dem estar contidos quaisquer caracte¬ 
res (Fig. 3). 

Os caracteres usados na linha 7 
são os seguintes: 

29 caracteres gráficos (shift gra- 
fics 6), 1 caracter gráfico (shift grafics 
B), 1 caractere gráfico (shift grafics 6). 

LINHA 10. 

Sãoiatribuídos à variável S, valores 
aleatórios (entre 0 e 1). A função RND 
gera números aleatórios menores que 1 
e a função INT obtém o valor inteiro de 
um número ou variável numérica (Fig. 4). 

LINHAS 20, 30,35, 80,90: 

Nestas linhas são feitas compa¬ 
rações (letra com letra ou letra com nú¬ 
mero) e, a partir delas, são executa¬ 
das tarefas (Fig. 5). 

O exemplo acima pode ser expli¬ 
cado da seguinte maneira: 

Se A for maior que 10 imprima na 
tela a palavra MICROHOBBY. 

LINHA 40 e 50: 

Os caracteres gráficos usados 
são: Espaço, Shift (Grafics E, Grafics 
R, Grafics 1) . 

LINHA 60: 

A instrução GOTO significa des¬ 
vio. Quando essa linha é executada, o 
computador irá executar a linha conti¬ 
da nessa instrução. 

Quando o computador ler a instru¬ 
ção da linha 100 retornará automatica¬ 
mente à linha 10. 


Modificações 


Uma das sugestões para as modi¬ 
ficações, é a de aumentar o número de 
cavalos que concorrem no páreo. 

Para diminuir a velocidade de cor¬ 
rida dos cavalos, é só aumentar o va¬ 
lor multiplicado pela função RND (va¬ 
lores acima de 2) (Fig. 7). 


Gustavo Egidio de Almeida 



































Digitação 


É comum, principalmente entre 
pessoas que não estão acostumadas 
ao BASIC do TK e seus compatíveis, 
ocorrer alguns erros de digitação. Em 
primeiro lugar, é importante ressaltar, 
que o BASIC TK está baseado em pa¬ 
lavras chaves. Algumas destas pala¬ 
vras chaves podem ser obtidas digitan¬ 
do-se uma única tecla, após ter-se di¬ 
gitado o número da linha, como as ins¬ 
truções REM, LET, IF e PRINT que 
aparecem neste programa. Neste caso 
é impossível digitar estas instruções 
letra por letra (experimente!). Outras 
palavras chaves são obtidas por meio 
da tecla SHIFT e uma outra simultâ¬ 
neamente. São os comandos, símbo¬ 
los e instruções que aparecem em ver¬ 
melho no teclado, como, por exemplo 
a palavra chave THEN, que aparece 
nas linhas 80 e 90 do nosso progra¬ 
ma exemplo. 

Outro conjunto de palavras cha¬ 
ves são as funções, que aparecem sob 
as teclas. Entre elas estão as funções 
INT, RND, AT que aparecem no nosso 
programa. A maneira correta de digi¬ 
tá-las é* 

SHIFT e NEW UNE ao mesmo 
tempo (o cursor muda para Q ) e, a 
seguir, a função desejada. 


Tanto nos comandos em vermelho 
(ou amarelo no TK85) quanto nas fun¬ 
ções, não adianta digitar um por um 
seus caracteres (I, N, T, por exem¬ 
plo). Tente fazer isso e veja o que 
acontece: provavelmente o programa 
não rodará, indicando um erro na li¬ 
nha onde foi digitada a função incor¬ 
retamente. Além disso, se a linha for 
aceita pelo computador, ocorrerá um 
erro devido ao fato do computador 
interpretar a função como uma variá¬ 
vel. Erros desta natureza às vezes são 
difíceis de se localizar, uma vez que, 
aos nossos olhos, parece que a linha 
foi digitada corretamente. 

Além das instruções, símbolos e 
comandos existem os caracteres grá¬ 
ficos, como os atribuídos à variável A$ 
na linha 7 do nosso programa. Para 
obtê-los, digite SHIFT e 9 ao mesmo 
tempo. Assim, você obterá o cursor G, 
e passará a operar no modo grafics. Is¬ 
so significa que, qualquer caractere 
que você digitar aparecerá invertido. 
Além disso, ao digitar SHIFT e, ao 
mesmo tempo, as teclas 1, 2, 3, 4, 5, 6, 
7, 8, A, S, D, F, G, e H obteremos os 
símbolos gráficos especiais. Para voltar 
ao modo normal, basta digitar nova¬ 
mente SHIFT 9. O 






Horários: diurno, noturno e 
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aula 10 



Flavio Rossini e Pierluigi Piazzi 


Gráficos e Funções Matemáticas 


Vamos apresentar agora a resolu¬ 
ção máxima que o TK é capaz de con¬ 
seguir na tela (sem ajuda de dispositi¬ 
vos especiais); imagine um papel "qua¬ 
driculado" com eixos horizontal e ver¬ 
tical e posições numeradas de 0 a 43 
(ordenadas) e 0 a 63 (abscissas). Dessa 
mesma maneira, a tela do TK é dividi¬ 
da para permitir o uso da key-word 
PLOT (tecla Q) que coloca um "ponto" 
preto em dada coordenada, cujas di¬ 
mensões são exatamente um quarto 
do caractere (SPACE em vídeo 
reverso). Note entretanto que o ponto 
0, 0 para o PLOT corresponde ao can¬ 
to inferior esquerdo da tela enquanto 
que a posição 0, 0 para PRINT AT cor¬ 
responde ao canto superior esquerdo. 
Execute o seguinte programa: 


10 

SLüU 


20 

FCR I»0 TO 81 


30 

PRINT RT X, X; •*®** 


40 

PLOT 1,1 


50 

N£XT I 

Fig. 1 


Temos também a key-word UN- 
PLOT (tecla W) que "apaga" um 
ponto que havia sido "plotado" an¬ 
teriormente; acrescente as seguintes li¬ 
nhas ao programa anterior e execute-o 
novamente: 


4.PHPRINT RT x , x; •• •* 


46 UNPLCT 1,1 

Fig. 2 


Experimente então o seguinte pro¬ 
grama que, além de mostrar claramen¬ 
te a diferença entre PRINT AT e PLOT, 
produz um belo efeito "artístico": 


10 

SLOU 


20 

FOR 1=0 TO 21 


30 

FOR J=0 TO 31 


4-0 

PRINT RT 


50 

PLOT 1,0 


60 

NEXT O 


70 

NEXT I 

Fig. 3 


Funções Matemáticas 


Vamos inicialmente às funções 
que lidam com logaritmos e exponen¬ 
ciais; temos LN (tecla Z) que calcula o 
logaritmo natural (na base e r 2.72) e 
EXP (tecla X) que calcula a potência na 
base natural (e) de seu argumento, ou 
seja, e "elevado" ao número forneci¬ 
do. Convém lembrar que LN e EXP são 
funções inversas; de fato, experimen¬ 
te ordenar: 


PRINT LN EXP -1 

Fig. 4 


O que você espera obter na tela? 
Vejamos então as funções trigo¬ 
nométricas; temos as três funções bá¬ 
sicas e seus respectivos inversos: 

seno — SIN (tecla Q) 
cosseno — COS (tecla W) 
tangente — TAN (tecla E) 
arco-seno — ARC SIN (tecla A) 


arco-cosseno — ARC COS (tecla S) 
arco-tangente — ARC TAN (tecla D) 

As funções SIN, COS e TAN pre¬ 
sumem que o ângulo esteja em radia- 
nos! Assim, para facilitar, o TK já tem 
o número PI (íí) em sua memória (te¬ 
cla M); note que, apesar de na tecla 
correspondente estar desenhado o 
símbolo iT, ao pressioná-la ele apare¬ 
cerá na tela como PI (vale a pena lem¬ 
brar que não adianta escrever as letras 
P e I individualmente). 

Obs.: fí radianos corresponde a 180°. 

O que acontece se você tentar cal¬ 
cular o seno (ou cosseno, ou tangente) 
de um ângulo maior que 2 * Tf ? 

Vamos então, a título de exemplo, 
fazer o gráfico da função seno; como 
esta função possue também valores 
negativos e como a "origem" das 
coordenadas no TK situa-se no canto 
esquerdo da tela, deveremos fazer um 
"deslocamento de eixos"; assim: 


10 

SLOU 


20 

PRINT "FRcOUENCIfi=? M 


30 

INPUT U 


40 

CLS 


50 

FOR 1=0 TO 63 


60 

LET U=20*SIN (2tÜ*(I/63) *PI 

70 

PLcrr i,u+22 


60 

NEXT I 

Fig. 5 


Experimente usar valores de fre- 
qüência cada vez maiores: 0.5, 1, 2, 3, 
4, etc., até chegar no máximo de inte¬ 
ligibilidade do gráfico. Note o truque 
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utilizado na linha 60 para fazer com 
que, para W = 1, coubesse exata¬ 
mente num período da senoide na tela. 
Por que é necessária a multiplicação 
por 20? 

Utilizaremos agora as funções tri¬ 
gonométricas para desenhar um cál¬ 
culo na tela: 


IO 

FR5T 


ro 

PR .TNT "FREQUÊNCIA*?" 


30 

INPUT U 


40 

PR1NT U 


50 

PR INT ** PrtSSO =>? " 


OO 

INPUT P 


70 

PPINT P 


60 

PR TNT "F INÉH_=?"* 


90 

INPUT F 


1ÓO 

PRINT F 


10 9 

pouse íso 


1 IO 

Cl_3 


130 

FOR 1=0 TO F STEP P 


130 

L.ET X =20*5 IN (UH) 


14 0 

LtiT Y =30 *CÜ'3 (UH) 


160 

PLOT X*31,Yf21 


160 

NEXT I 

Fig.6 



Estamos utilizando as equações 
paramétricas da circunferência neste 
programa. Para iniciar, utilize valores 
de W, P e F tais como W< 1, P<8 e 
F > 50. Estude com cuidado este pro¬ 
grama, notando o deslocamento de ei¬ 
xos na linha 150. Qual o raio desta cir¬ 
cunferência? (Obs.: o programa, ape¬ 
sar de ser em FAST, é um pouco de¬ 
morado pois não é tão simples calcu¬ 
lar vários senos e cossenos . . 


Espirais 


Acrescentando algumas linhas ao 
programa anterior, poderemos ter um 
efeito realmente bonito. Coloque en¬ 
tão as seguintes instruções adicionais: 


102 

PR TNT 

"DECAIMENTO-?" 


104- 

INPUT 

D 


106 

PR INT 

D 


125 

LET A 

=EXP 

Fig.8 


e modifique as linhas 130 e 140 para: 


13P LET X»20*l=ltSIN U.'«I> 
140 LET y=20tf)«COS CU*I) 


Experimente então, para começar, 
W = 120, P = 0.1, F = 50 e D = 0.04. 



A seguir, tente W = 10, P = 0.2, 
F = 100e D = 0.05. 




KYW INFORMÁTICA 


Rua da Lapa, 180 - gr. 1.108/1.110 - CEP 20.021 
Telex: (021) 30980 Rio de Janeiro - RJ 

telefone: (021) 



CòmpuBel 

Produtos exclusivos para o TK 83, 

TK 85, CP-200, RINGO e compatíveis. 

• Papel e suprimentos para impressora 
2040 da LINHA TIMEX 

• Jogos coloridos para Spectrum e 2068 (72K) 

• Tela verde “p/ TV 12” 

NOVIDADE: “FAÇA SEU TK FALAR!! 

• Sintetizador de voz 

• Sintetizador de som: ruidos de tiros, 
foguetes, Passarinhos, etc. 

• Livros Técnicos, inclusive THE COMPLETE 
TIMEX/SINCLAIR ROMDISASSEMBLY 
e The Ins. And Outs of The TS10000 


Solicite maiores detalhes e um catálogo 
gratuito para Compubel 

Solicite Catálogo 


NOME: 

TEL. 

END.: 

CEP: 

CIDADE: 

ESTADO: 


Travessa Quintino Bocaiuva, 1779 - Tel. (091) 223-6319 
Cep 66000 - Beiém - Pará - Brasil 
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Exercícios: 


1) Implemente o programa que 
traça o gráfico da função seno para 
que ele desenhe o eixo das abscissas 
(eixo x) além do gráfico da função se¬ 
no. 


2) Fazendo com que o eixo x es¬ 
teja na linha "mais baixa" da tela, faça 
o gráfico das seguintes funções: 

a) f(x) = 40*SIN X 

b) f(x) =EXP(-D*IXI)* 40*SIN 

IXI 

Obs.: IXI = módulo de x; na função 
(b), faça o gráfico para vários valores 
de D. 

3) Faça um programa para con¬ 
verter graus em radianos; a seguir, im¬ 
plemente-o para que ele consiga calcu¬ 
lar o seno, cosseno, tangente, cotan- 
gente, secante e cossecante de um ân¬ 
gulo fornecido em graus. 

4) Elabore um programa que cal¬ 
cula o logaritmo de uma variável na 
base 10. 

5) Elabore um programa que, de 
posse da altura de um farol marítimo e 
do ângulo que a luz deixa o mesmo 
para atingir um navio, calcule a distân¬ 
cia entre o navio e o farol. 

6) Elabore um programa que seja 
capaz de desenhar uma "espiral qua¬ 
drada". . . 


INSTITUTO DE TECNOLOGIA ORT 
CENTRO DE INFORMÁTICA 



CURSOS 

LINHA IBM (Apoio Marcodata) 

OS/VS1 - VSE - VM/CMS - VSAM 
CICS - DL/1-COBOL: TÉCNICAS E 
OTIMIZAÇÃO 

MICROINFORMÁTICA 

BASIC - ASSEMBLER - PASCAL 
LOGO - CP/M - VISICALC 
dBASE II-WORDSTAR 

FORMAÇÃO DE PROGRAMADORES 

DURAÇÃO: 9 MESES 

CPD-ORT: IBM 4341 COM TERMINAIS 
LABORATÓRIO DE MICROS 

TREINAMENTO IN HOUSE 

SOLICITE INFORMAÇÕES E 
FOLHETOS EXPLICATIVOS 


RUA DONA MARIANA - 213 - BOTAFOGO 
TE LS.: 226-3192 - 246-9423 


PEQUENOS 



VENDO TK-85 com 16K, sem uso. 
Preço a combinar. Tratar com Cecília. 
Telefone: (011) 284.0266, horário co¬ 
mercial. 

VENDO TK-85 com chave inver- 
sora de vídeo, saída para dois joys¬ 
ticks, teclado profissional e saída para 
monitor de vídeo. Grátis: 80 jogos (xa¬ 
drez, rally, defender, etc.). Apenas 
CrS 200.000,00. Tratar com Cejana 
Alkmin Mercadante. Rua Santa Cata¬ 
rina, Q-89, L-19 — Jardim Guanabara 
Goiânia, GO — CEP 74000. 

TROCO programas para o TK-82, 
83, 85 e CP-200. Tratar com Gilmar 
Marini. Av. Castelo Branco, 681 — Vi¬ 
cente de Carvalho, SP. 

VENDO um TK-85 com 48K e ou¬ 
tro TK-85 com 16K, ambos com pou¬ 
quíssimo uso. Dou 10 programas com¬ 
prados de brinde. Tratar no telefone 
543.3467 com Léo. 

COMPRO programas de jogos em 
fita para TK. Interessados, enviar rela¬ 
ção dos programas com uma pequena 
descrição para Wagner F. Tranin. Pça. 
Afonso Pena, 77, apt? 603. São José 
dos Campos, SP. 

O TK-Clube de Natal abre os seus 
bytes para todos os programadores de 
microcomputadores TK-82C, CP-200, 
TK-83, TK-85 e compatíveis. Você que 
^possui microcomputadores e deseja 
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trocar informações e programas, es¬ 
creva para o TK-Clube de Natal. Rua 
Praia de Camboinhas, 9115. Ponta Ne¬ 
gra - Natal, RN - CEP 59000. 

Estou organizando uma biblioteca 
com software para micros compatíveis 
com a lógica Sinclair (TK, CP-200, ZX- 
81). Escreva para Francisco Panizo. 
Rua Indiana, 555, apt? 163, São Paulo 
- CEP 04562. 

RADIOAMADOR — Vendo inter¬ 
face para RTTY e CW para os micros 
tipo Sinclair, TK-82, TK-83, TK-85 e 
CP-200. Informações com PY2-EMI, 
com Renato Strauss ou à Rua Cardoso 
de Almeida, 654/32 - CEP 05013. 

Sou usuária de um TK-85 e assi¬ 
nante desta revista, faço Geofísica na 
USP e tenho conhecimentos de inglês 
e árabe. Ofereço-me para trabalhar de 
baby-sitter e transmitir meus conheci¬ 
mentos a filhos de leitores desta revis¬ 
ta. Tratar com Fátima no telefone 222. 
9197, São Paulo. 

TROCO programas (e Dicas) para 
os micros TK-82, 83 e 85, Sinclair e 
CP-200 em Assembler e Basic. Cartas 
para Renato M. Prado, Rua Thebas, 
142 — Aeroporto, São Paulo — CEP 
04634, ou pelo telefone (011) 543.0095. 

FAÇO, sob encomenda, aparelho 
inversor de vídeo e bip. Tratar com 
Maurício aos fins de semana e dias 
úteis, à tarde) pelo telefone 212.0032 .) 













Respostas do Curso 
de Basic-aula 9 



11 10 

FRST 

3© 

INPLrr P$ 



2© 

PRINT "QUANTAS PALAURAS DEU 

40 

CLS 



O ORDENfiR 7“ 

50 

LET T=LEN P$ 



30 

INPLrr L 

60 

FOR 1=1 TO T 



4-0 

PRINT L 

70 

PRINT RT 6,2*1; "S" 



60 

PRINT "GUflNTRS LETRAS TEM F« 

80 

NEXT I 



MAIOR PRLfl-URfi " 

90 

LET C=0 



70 

INPLrr C 

100 

PRINT AT 16,2;"LETRAS= 

T" 

80 

PRINT C 

110 

INPLrr L $ 



90 

PfíUSE 120 

111 

LET R=R+i 



100 

CLS 

112 

IF R=2*T THEN GOTO 

220 


110 

DIM N$ (L .. C) 

115 

IF LEN L $ >1 THEN GOTO 

110 

120 

FOR N = 1 TO L 

116 

GOTO 303 



130 

PRINT AT 6,8; "OURL A " ; N; *’• 

120 

PRINT RT 10,2;“ - 


%% 

PRLRURR '?*• 

130 

FOR 1=1 TO T 



14-0 

INPLHT N$(NÍ 

140 

IF P$ í I) < >L$ THEN i 

GOTO 

17© 

150 

NEXT N 

150 

LET C=C+1 



160 

CL. 5 

160 

PRINT RT 6,2*1;L S 



170 

LET F=0 

170 

NEXT I 



180 

FOR 1 = 1 TO L-l 

180 

IF COT THEN GOTO 

1O0 


190 

IF NS ( I) <=N$ (1 + 1) THEN GOTO 

190 

PRINT RT 10,2;“FIM 

DO 

JOGO’ 

240 

210 

ST OP 



200 

LET F = 1 

220 

PRINT RT 10,2;"UOCE PERDEU. 

210 

LET B£=NS(IÍ 

%% 

• m 




220 

LET N$(I) =N $ C1 + 1) 

230 

ST OP 



230 

LET N$ ( 1 + 1) = E> $ 

300 

FOR N=1 TO 26 



24-0 

NEXT I 

310 

IF LirRi(N) THEN GOTO 

110 

250 

IF F = 1 THEN GOTO 170 

320 

NEXT N 


26© 

5LOU 

33© 

LET R$ (Lí =LS 



270 

FOR 1=1 TO L 

340 

LET L=L+1 



280 

SCRO LL 

350 

GOTO 120 


Figura 2 

290 

PRINT l; -> . . N$ (I) 




300 

NEXT I 

3 > ie 




310 

PRUSE 120 

5LOU 



320 

FR ST 

20 

LET X =31 



330 

CLS 

30 

LET Y =21 



34-0 

PRINT RT 0,12;"MENU” , , , , , 

40 

PLOT X,Y 



350 

PRINT "DIGITE O N* CORRESPO 

50 

IF INKEY$="5" THEN 

LET 

1 

X 

ll 

X 

NDENTE :“ , . , 

1 




360 

PRINT "1...INSERIR NOUfl PRL 

60 

IF INKEY $ = “ 8 “ THEN 

LET 

.x=x* 

RUR R‘ 

% 

1 




370 

PRINT "2...RETIRAR ALGUMA P 

70 

IF INKEY $ = “6 “ THEN 

LET 

-< 

II 

-< 

1 

RLftyRR" 

1 




380 

C '» 

PRINT "3...REUER AS PALAURA 

80 

IF INKEY S =“ 7“ THEN 

LET 

Y =Y + 

390 

INPUT N 

90 

IF INKEY $ = “ 3 “ THEN 

LET 

X 

ll 

X 

1 

4-00 

IF N < > 1 AND N<>2 AND N<>3 T 

1 




HEN GOTO 39© 

92 

IF INKEY$="3" THEN 

LET 

Y=Y + 

4-10 

CLS 

1 




4-20 

GOTO Níl00+4-00 

95 

IF INKEY S = “ 4 “ THEN 

LET 

X=X- 

500 

PRINT " INTRODUZR R PRLRURR " 

1 




510 

INPUT L $ 

96 

IF INKEY $ = •* 4 “ THEN 

LET 

•< 

ii 

■< 

i 

520 

LET N$ (Lí = L$ 

1 

IF INKEY$=”0” THEN 



530 

GOTO 160 

100 

LET 

x=x* 

600 

PRINT “ OURL E" O NUMERO f 

1 




A PALAURA R SER RETIRRDR ?” 

102 

IF INKEY $ = ** 0 '* THEN 

LET 

Y=Y + 

610 

INPUT R 

1 




620 

LET N$ (R) ='••• 

105 

IF INKEY $ = " 9" THEN 

LET 

X=X + 

7O0 

GOTO 160 Figura 1 

1 

106 

IF INKEY$=“9“ THEN 

LET 

1 

>- 

2 ) S 

LET L = 1 

LET R = 1 

110 

GOTO 40 


Figura 3 

D 





7 

DIM R$(26,1) 

OBS: 




10 

5L0U 

PRRR 

QUE A LINHA SAIA TRACEJADA 

20 

PRINT TRB 2; “OURL R PRLRURR 

TROQUE TODOS OS "1" DAS 

LXNHR5 

7 " 


50 R 

106 POR “2“• 
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CURSO DE ASSEMBLY 






aula 9 

Flavio Rossini 


O Stack Pointer e o 
Program Counter: 

Instruções de salto 
e números negativos 

Em aulas anteriores falamos sobre 
a flag de CARRY que fazia parte de um 
registro interno do microprocessador 
chamado F; vamos estudar agora, com 
mais detalhes, este registro e mais dois 
outros muito importantes chamados: 
SP (stack-pointer) 

PC (program-counter) 

Estes dois registros têm 16 bits e, 
ao contrário dos já conhecidos pares 
BC, DE e HL, não podem ser divididos 
em dois registros de 8 bits: 



O STACK-POINTER: 
Como "salvar" registros 


A palavra "stack" significa pilha. 
Imagine uma caixa onde você coloca 
livros empilhados um em cima do ou¬ 
tro; o único livro que você poderá reti¬ 
rar facilmente é o que está no topo da 
pilha; assim, se você colocar três livros 
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A, B e C (nessa ordem) você só poderá 
retirá-los na ordem inversa, ou seja, C, 
B e A. Em outras palavras, o primeiro 
livro que você pode retirar da pilha foi o 
último a ser colocado. Desta mesma 
forma, o microprocessador usa uma 
área da memória RAM para empilhar 
dados, utilizando o registro SP ("stack 
pointer" = ponteiro da pilha) para in¬ 
dicar o ENDEREÇO do primeiro byte da 
pilha, ou seja, o "topo" da pilha indica 
o endereço do último byte que foi co¬ 
locado. 

Uma das utilidades desta "pilha de 
dados" na memória RAM é para sal¬ 
var momentaneamente o conteúdo 
dos registros quando necessitamos uti¬ 
lizá-los para alguma outra função. Por 
exemplo, suponha que num dado pon¬ 
to do programa você precise utilizar os 
registros, mas ele estão TODOS 
ocupados com dados que você não de¬ 
seja perder. Uma alternativa é usar 
uma região da RAM para guardar "mo¬ 
mentaneamente" o conteúdo dos re¬ 
gistros necessários e, após eles terem 
sido usados basta BUSCAR de volta 
na RAM o seu antigo valor. Assim, 
existe uma instrução para colocar PA¬ 
RES de registros no topo da pilha, cha¬ 
mada PUSH e outra para retirá-los, 
chamada POP. Por exemplo, imagine 
que o par HL contém o número 12345 
(H = '48' e L = '57') e que o registro 
SP contém o número 30100. 


A instrução PUSH HL coloca o 
conteúdo do registro H na memória de 
endereço 30099 (SP-1) e o registro L na 
memória 30098 (SP-2); o registro SP 
passa a indicar 30098! Observe que 
esta instrução, assim como LD, não al¬ 
tera o par HL; apenas COPIA seus va¬ 
lores na memória. Uma vez copiados, 
agora podemos utilizar H e L para ou¬ 
tras finalidades e, feito isto, obter de 
volta seus antigos valores fazendo POP 
HL e SP voltará a indicar 30100. Estas 
instruções só funcionam para pares de 
registros; você não pode fazer PUSH B 
ou POP E por exemplo! 

Assim como nos LOOPS de FOR/ 
NEXT, quando colocamos um loop 
dentro do outro, cuidados semelhan¬ 
tes devem ser tomados quando fizer¬ 
mos vários PUSH. Portanto, se você 
fizer PUSH HL, e a seguir, PUSH BC, 
quem está no topo da pilha é o par BC; 
logo, para ter os valores originais de 
volta, você deve fazer primeiro POP 
BC e depois POP HL Se você esque¬ 
cer esta inversão, ocorrerá uma "tro¬ 
ca", ou seja, o que estava no par HL 
passa para o par BC e vice-versa. Da 
mesma forma, se com um único PUSH 
e um único POP você "errar" os pares, 
por exemplo PUSH HL e a seguir POP 
BC, o que estava no par HL é copiado 
no par BC! (o que equivale a fazer LD, 
B, HeLD C, L). 

Experimente então os seguintes 

























30000 

LD 

HL65535 

'21 FFFF' 

; carrega HL com 'FFFF' 

30003 

PUSH 

HL 

E5' 

; coloca HL no topo da pilha (SP = SP - 2) 

30004 

POP 

BC 

'cr 

; coloca o conteúdo do topo da pilha em BC 
SP = SP + 2) 

30005 

RET 


C9' 



Tabela II 


INSTRUÇÃO 

CÓDIGO 

INSTRUÇÃO 

CÓDIGO 

PUSH AF 

F5' 

POP AF 

FV 

PUSH BC 

C5' 

POP BC 

cr 

PUSH DE 

D5' 

POP DE 

Dl' 

PUSH HL 

E5' 

POP HL 

EV 


Tabela III 


OAAAA 

JWW 

LD 

HL,65535 

'21 FFFF' 

; carrega HL com 'FFFF' 

38003 

PUSH 

HL 

E5' 

; coloca HL no topo da pilha (SP = SP — 2) 

30004 

PUSH 

BC 

C5' 

; coloca BC no topo da pilha (SP = SP - 2) 

30005 

POP 

HL 

'El' 

; coloca o conteúdo do topo da pilha em HL 
(SP = ép + 2) 

30006 

POP 

BC 

CV 

; coloca o conteúdo do topo da pilha em BC 
(SP = SP + 2) 

30007 

RET 


C9' 



programas que colocam FFFF em BC; 
o primeiro, "troca" os conteúdos de 
HL e BC e o segundo, "copia" o con¬ 
teúdo de HL em BC (tabela I e II). 

Execute os dois programas e você 
obterá 65535 = 'FFFF'. Note que em 
ambos os casos, o SP teve seu valor 
inicial igual ao seu vaior finai (núme¬ 
ro de PUSHs = número de POPs); é 
importante que isto sempre seja veri¬ 
ficado. Em outras palavras: o valor no 
fim do mesmo! Com o tempo você per¬ 
ceberá o porque disto! 

0 stack-pointer deve ter como seu 
valor inicial um endereço no fim da 
memora para evitar que os dados em¬ 
pilhados atinjam os programas! 0 va¬ 
lor iniciai do SP fica a cargo do pro¬ 
grama interpretador e está nas memó¬ 
rias 16386 e 16387, numa variável cha¬ 
mada ERR-SP; assim, esta variável in¬ 
dica sempre a parte de BAIXO da pi¬ 
lha, enquanto que SP indica o TOPO! 

Na tabela III estão os códigos de 
PUSHePOP. 

0 par AF é o par peculiar que só 
pode ser utilizado por ocasiões de 
PUSH e POP; ele consta de acumula¬ 
dor e do registro F que contém as 


flags, entre elas a já conhecida flag de 
CARRY. As instruções PUSH e POP 
não alteram a flag de CARRY. 

Da mesma maneira que nós utili- 


Tabela I 


zamos os outros pares de registros, 
podemos fazer "contas" com o con¬ 
teúdo de SP ou carregar valores no 
mesmo (tabela IV). 


COMO FAZER 
SUA ASSINATURA 


Para obter seu exemplar mensal (12 
números) da revista Microhobby conten¬ 
do muitos programas para o TK como 
também para o Apple e o TRS-80, inúme¬ 
ras dicas e as últimas novidades na área de 
informática, você deve fazer uma assina¬ 
tura. 

É importante ressaltar que o recebi¬ 
mento da revista é considerado a partir da 
data de recebimento do pedido de assina¬ 
tura, porém, há um período de 30 dias de 
carência até a revista chegar às suas mãos. 
Os números anteriores da revista podem 
ser adquiridos se as tivermos no mo¬ 
mento do pedido em nossos estoques, 
através do telefone 255-0722, diretamen¬ 
te com o Departamento Comercial. 

Para ter acesso a todas estas vantagens 
basta preencher, corretamente, o cupom 
anexo, colocá lo no correio junto a um 
cheque nominal ou vale postal em nome 
de Micromega Publicações e Materiai Di¬ 
dático, no valor de Cr$ 16.900,00. 


O envelope deverá ser selado e endere¬ 
çado com os seguinte dizeres: 


MICROMEGA P.M.D. LTDA. 
Departamento de Assinaturas 
Caixa Postal 54096 
CEP 01296 - São Paulo, SP. 


e dentro dele não deverá ter nada além do 
cheque e o cupom. 

No verso do cheque, escreva: 

"Destina-se ao pagamento de uma as¬ 
sinatura (12 números) da revista Micro¬ 
hobby". 

Quando este cheque for devolvido ao 
seu Banco com nosso endôsso, servirá (pa¬ 
ra você), de comprovante provisório até 
que nosso recibo seja confeccionado e en¬ 
viado pelo correio. 


RESPOSTAS 
DO CURSO 
DE BASIC 


Aula número 8 


1) Figura 1 


10 SLOW 
ao INPUT xt 
30 PPINT X* 
40 GOTO PO 


2) Figura 2 


r 


\ 

10 

SLOU 


20 

INPUT X% 


30 

tr.T y * ” ** 

1 STCP -1 

40 

FOR I=LEV X$ TO 

50 

I2£l 

LET Y$*Y>4CHR$ 

(CODE X$lX> 

GO 

NEXT I 


70 

PRINT X$,Y$ 


vil 

GOTO 20 

_ ) 


3) Figura 3 


10 SLOU 
PO INPUT X» 

30 print RT 10,10; x* 

40 LET X**X$(2 TO )4X*Cll 
*0 GOTO 30 


'sj 
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INSTRUÇÃO 

CÓDIGO 

LD SP,HL 

LD SP, dados 

LD SP, (endereço) 

LD (endereço), SP 
ADD HLSP 

ABC HLSP 

SBC HLSP 

INC SP 

DEC SP 

'F9' (esta instrução permite a cópia DIRETA de 16 bits) 

'31' + 2 bytes para o dado 
'ED7B' + 2 bytes para endereço 
'ED73' + 2 bytes para endereço 
'39' 

ED7A' 

ED72' 

'33' 

'3B' 


Tabela IV 


Estas instruções são bastante 
úteis e você perceberá isto com o tem¬ 
po. 

Outra utilidade do SP é permitir a 
utilização de sub-rotinas em linguagem 
de máquina; veremos isto mais adian¬ 
te. 


O Program-Counter e as 
Instruções de Salto 


O Programa-Counter (contador de 
programa) é outro registro interno de 
16 bits (que não pode ser dividido) cu¬ 
ja função é indicar ao microprocessa¬ 
dor em que endereço da memória ele 
deve "buscar" a instrução em lingua¬ 
gem de máquina. Assim, ao fazer USR 
30000, não só o par BC é carregado 


com 30000 mas também o PC; o micro¬ 
processador executa a instrução na 
memória 30000 e incrementa o va/or 
do PC um número de vezes que cor¬ 
responde ao número de bytes da 
instrução , para saber o endereço da 
próxima instrução a ser processada. 
Por exemplo, jsuponha que a primeira 
instrução seja LD B, A, que tem 1 byte; 
ela será executada e PC passa a indi¬ 
car 30001; se a segunda for por exem¬ 
plo LD A, 2 (que tem 2 bytes), ela será 
executada e PC indicará 30003 e assim 
por diante! 

Se pudermos então alterar o valor 
do PC teremos o mesmo efeito que a 
instrução GOTO em BASIC! Mas lem¬ 
bre-se que em linguagem de máquina 
não temos Unhas de programas e 


portanto deveremos ir para endereços 
da memória e muito cuidado deve ser 
tomado para não irmos para o "meio" 
de uma instrução. Assim temos a ins¬ 
trução JP ("Jump" - salte). Por exem¬ 
plo o JP 30000 carrega PC com o en¬ 
dereço 30000 (sem no entanto incre¬ 
mentá-lo) e o microprocessador "pen¬ 
sará" que 30000 é o endereço da pró¬ 
xima instrução do programa. 

0 código da instrução JUMP é: 

JP endereço 'C3' + 2 bytes para 
endereço ou, usando o endereço dado 
pelo par HL: 

JP (HL) código 'E9' 

Veja como é importante saber 
quantos bytes tem cada instrução pa¬ 
ra podermos "contar" certo os endere¬ 
ços a serem usados nas instruções de 
JUMP. 

Há uma outra instrução de "salto" 
similar à JP que é a JR Jump Relative 
— salto relativo — que significa: salte 
para frente ou para trás um determina¬ 
do número de bytes (127 para frente ou 
128 para trás no máximo!), somando o 
número dado ao endereço, imediata¬ 
mente após o final da instrução. As¬ 
sim, JR 0 não tem efeito nenhum, JR 1 
"pulará" o próximo byte, JR 2 "pula¬ 
rá" os dois próximos bytes e assim por 
diante! Novamente, cuidado para não 


COMO COLABORAR 
COM MICROHOBBY 



A Revista MICROHOBBY foi criada 
para servir de intercâmbio entre os leito¬ 
res que participam do mágico mundo da 
computação. 

A característica realmente inovadora 
do computador pessoal, está em transfor¬ 
mar cada consumidor num criador. Apro¬ 
veite sua criatividade e envie suas colabo¬ 
rações recebendo remuneração a título de 
DIREITO AUTORAL. 

( A maneira ideal de nos enviar o mate¬ 
rial a ser publicado obedece às seguintes 
normas: 


1. Nunca esqueça, de colocar o nome 
completo, telefone, endereço e número 
de sua assinatura em todo material envia¬ 
da a nós, sejam listagens de impressora, fi¬ 
tas, envelope, carta ou qualquer outro 
material. 

2. Envie a listagem de programa datilo¬ 
grafada ou, melhor ainda, tirada na im¬ 
pressora do computador. 

3. Coloque sempre uma linha REM com 
o nome do autor e o título do programa. 

4. Envie uma fita com o programa grava¬ 
do algumas vezes (se possível em gravado¬ 
res diferentes). 

5. Na fita, gravar com microfone (em viva 
voz), algumas instruções úteis: 

nome completo e endereço do remetente. 

6. Quando o programa for adaptado e/ou 
traduzido de outra revista, citar a fonte 
(autor original, data de publicação, nome 
da revista e todos os detalhes que houver 
referente à publicação). 


7. Anexar ao material, uma carta autori¬ 
zando a publicação por parte da revista e 
assumindo a responsabilidade pela autoria 
do material e/ou adaptações. Nesta carta, 
para agilizar a remuneração, podem cons¬ 
tar os dados da conta corrente onde da¬ 
remos o depósito correspondente aos di¬ 
reitos autorais. 

8. 0 material não utilizado não será de¬ 
volvido, ficando a critério da redação a 
decisão final sobre sua publicação. 

9. O material deve ser enviado para: 


MICROMEGA PUBLICAÇÕES E 
MATERIAL DIDÁTICO 
SEÇÃO PROGRAMAS DO LEITOR 
Cx. Postal 54096 
CEP 01296 
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0 

1 

2 

3 

4 

5 

6 

7 

8 

9 

A 

B 

C 

D 

E 

F 

8 

128 

127 

126 

125 

124 

123 

-122 

121 

-120 

119 

-118 

-117 

-116 

-115 

-114 

-113 

9 

-112 

-111 

-110 

-109 

-106 

-107 

-106 

-105 

-104 

-103 

102 

-101 

-100 

999 

98 

97 

A 

96 

95 

94 

93 

92 

-91 

90 

-89 

48 

-87 

46 

45 

45 

43 

42 

41 

B 

*0 

79 

78 

77 

-76 

75 

74 

-73 

72 

- 71 

-70 

49 

48 

47 

46 

45 

C 

-64 

-63 

62 

- 61 

- 60 

59 

-58 

-57 

-56 

55 

-54 

-53 

52 

51 

-50 

49 

D 

-48 

47 

46 

45 

44 

45 

44 

43 

42 

41 

40 

39 

38 

37 

-36 

33 

E 

32 

31 

-30 

29 

28 

27 

26 

25 

24 

23 

22 

-21 

20 

-19 

-18 

-17 

F 

-16 

-15 

-14 

-13 

-12 

-11 

-10 

9 

-8 

7 

4 

5 

4 

3 

2 

-1 


Tabela V 


"cair" no meio de instruções! 

O código de JR é: '18' + 1 byte 
para o dado. 

Surge agora uma pergunta: e pa¬ 
ra pular para trás? Devo usar números 
negativos? Como representá-los só 
com zeros e uns? Já havia dito ante¬ 
riormente quando falamos na subtra¬ 
ção, que iríamos deixar os números ne¬ 
gativos para mais tarde: chegou a ho¬ 
ra! Na verdade é tudo uma questão de 
convenção: você interpreta os 8 bits de 
um registro como lhe convier; ou você 
só pensa em números positivos, onde 
você poderá representar desde 0 até 
255 ou você pensa em números posi¬ 
tivos e negativos, podendo então re¬ 
presentar desde — 128 até 127 (note 
que continuam sendo 256 números!). 
A convenção usada em linguagem de 
máquina é a seguinte: 

número zero: 0000 0000 
números positivos: de 0000 
(número + 1) '01' 
até 0111 1111 (número + 127) '7F' 
números negativos: pegue o nú¬ 
mero positivo correspondente em biná¬ 
rio, troque os zeros pelos uns e some 
um ao resultado! (Pode parecer, à pri¬ 
meira vista, uma convenção meio sem 
sentido mas se você algum dia estudar 
profundamente a linguagem de máqui¬ 


na, você entenderá a vantagem disto!). 
Por exemplo, para obter o número 

- 2 : 

+ 2 = 00000010 = 1111 1101 

_+_ 

1111 1110 

- 2 = 'FE' 

De qualquer forma, para facilitar 
vamos apresentar na tabela V com os 
números negativos de — 1 à 128. 

Para utilizá-la, junte a "letra" da 
coluna vertical com a "letra" da linha 
horizontal; por exemplo: 

- 55 = 'C9' 

- 78 = 'B2' 


Preste bem atenção agora: a ins¬ 
trução JR sempre soma o seu dado ao 
endereço do primeiro byte que fica 
após o término da instrução; com nú¬ 
meros positivos o raciocínio é fácil e já 
foi mencionado; com números negati¬ 
vos você sempre deve subtrair dois a 
mais do que parece à primeira vista 
pois JR é uma instrução de dois bytes! 
Assim, fazer JR — 2 (JR 'FE') significa 
fazer um LOOP INFINITO pois você es¬ 
tará sempre voltando ao começo dela 
mesma! Veja um exemplo de como 
usar corretamente JR com números 
negativos; suponha que você tenha a 
instrução na memória 30002 e deseja 
voltar para a memória 30000; então: 
30002 JR — 4 '18FC' O 


Respostas do Curso 

de Assembly- aula 8 


1) 30000 LD, DE, (16396) 'ED5B0C40' 


30004 LD HL, (16396) 

'2A0C40' 

30007 LD A, L 

'7D' 

30008 ADD A,33 

'C621' 

30010 LD L,A 

'6F' 

30011 LD A,H 

'7C' 

30012 ADC A,0 

'CE00' 

30014 LDH,A 

'67' 

30015 LD BC,330 

'014A01' 

30018 LDIR 

'EDB0' 

30020 RET 

'C9' 

2) 31000 LD BC,726 

'01D602' 

31003 LD, HL,(16396) 

'2A0C40' 

31006 ADD HL,BC 

'09' 

31007 LD, D,H 

'54' 

31008 LD E,L 

'5D' 

31009 LB, BC,330 

'014A01' 

31012 LD HL,(16396) 

'2A0C40' 

31015 ADD HL,BC 

'09' 

31016 LDDR 

'EDB8' 

31018 RET 

'C9' 

3) 0 programa a seguir utiliza as sub- 
rotinas de SCROLL e ANTI-SCROLL, 

vistas na aula número 8. 



10 PfiST 
20 RflND 

30 DIM R$(22,32) 

4-0 FOR 1 = 1 TO 22 

50 LET B$=CHR$ (S3*RND+128*(RN 
D>.5)) 

60 FOR J=1 TO 5 
70 LET B$=6$+B$ 

80 NEXT U 
90 LET R$(X)=B$ 

100 PRINT R$(I) 

110 NEXT I 
120 LET 8=1 
130 LET C =22 
140 SLOU 

150 IF INKEY $ = *’" THEN GOTO 150 
160 LET 6 $ = INKEY $ 

170 IF B $ = *' 6 ” THEN GOTO 190 
180 IF B $ = ** 7 ’* THEN GOTO 250 
190 IF C<=0 THEN LET C=22 
200 IF 0=23 THEN LET C = 1 
210 PRINT RT 0,USR 30000; R$fC) 
220 LET 6=C 
230 LET C=C-1 
240 GOTO 150 

250 IF B<=0 THEN LET 3=22 

260 IF B > =23 THEN LET 6 = 1 

270 PRINT RT 21.USR 31O00;R$(BJ 

280 LET C=B 

290 LET B=B+1 

300 GOTO 150 

O 
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DICAS 


MERGE 
PARA O 
TK 

Muitas vezes é necessário juntar um programa com outro. 
Em alguns computadores isto é muito fácil, graças a uma 
' função especial: o MERGE, 
que permite não só justapor dois programas, 
como, eventualmente, misturá-los. 

Pensando nisso, elaboramos para a seção Dicas 
deste mâs um programa MERGE para que computadores 
como o TK e compatíveis possam 
desfrutar de mais este recurso. 


Carlos Eduardo Rocha Salvato 


- 

1 

REM... 



10 

POR P = 16514* TO 16677 



20 

INPUT B 



30 

SCROLL 



4*0 

PRXNT P; ••. . . B 



50 

POKE P,B 



6© 

NEXT P 

Fig. 1 


Digitação 


Na primeira linha REM devem ser 
digitados 164 pontos. Após você ter 
digitado a linha REM, digite o progra¬ 
ma da figura 1, depois digite RUN e 
comece a entrar com os códigos da fi¬ 
gura 2. 


16514* . 


. 15 

16515. 

. 

. 15 

16596. 

m 

.3 

16597. 

9 

.205 

16516. 

. 

.40 

16517. 

. 

. 38 

16596. 

9 

.35 

16599. 

• 

. 15 

16516. 

. 

.55 

16519. 

« 

. 49 

16600. 

m 

.237 

16601. 

• 

.91 

16520. 

. 

.52 

16521. 

. 

. 56 

16602. 

9 

. 4 

16603. 

• 

.64 

16522. 

. 

.0 

16523. 

. 

. 42 

16604. 

m 

.213 

16605. 

• 

. 225 

16524. 

. 

.41 

16525. 

. 

.58 

16606. 


. 1 

16607. 

• 

. 156 

16526. 

. 

.36 

16527. 

• 

.55 

16608. 

m 

. 126 

16609. 

• 

. 167 

16520. 

. 

.41 

16529. 

. 

.52 

16610. 

m 

.237 

16611. 

• 

.66 

16530. 

. 

.0 

16531. 

. 

.55 

16612. 

9 

. 40 

16613. 

• 

.61 

16532. 

. 

.52 

16533. 

. 

.40 

16614. 

m 

. 235 

16615. 

• 

.237 

16534. 

. 

.45 

16535. 

. 

.38 

16616. 

m 

.91 

16617. 

• 

.20 

16536. 

. 

.0 

16537. 

. 

.56 

16618. 

m 

.64 

16619. 


.70 

16538. 

. 

.38 

16539. 

• 

. 49 

16620. 

m 

. o5 

16621. 

m 

.78 

16540. 

. 

.59 

16541. 

. 

. 38 

16622. 

m 

.237 

16623. 

• 

. 67 

16542. 

. 

.57 

16543. 

. 

. 52 

16624. 

m 

. 10 

16625. 

m 

. 64 

16544. 

. 

.0 

16545. 

. 

.29 

16626. 

m 

• 35 

16627. 


.78 

16546. 

. 

.37 

16547. 

. 

. 36 

16628. 


.35 

16629. 

9 

. 70 

16548. 

. 

.32 

16549. 

. 

. 15 

16630. 

m 

. 35 

16631. 

• 

. 237 

16550. 

. 

. 15 

16551. 

. 

. 205 

16632. 

9 

. 176 

16633. 

9 

.237 

16552. 

. 

.35 

16553. 

. 

. 15 

16634. 

m 

.83 

16635. 

m 

. 26 

16554. 

. 

• 33 

16555. 

. 

.91 

16636 . 

m 

.64 

16637. 

m 

. 237 

16556. 

. 

.64 

16557. 

. 

.249 

16638. 

9 

.83 

16639. 

m 

.28 

16558. 

. 

.42 

16559. 


. 12 

16640 . 

• 

.64 

16641. 

9 

. 34 

16560. 

. 

.64 

16561. 

. 

. 17 

16642. 

m 

.4 

16643. 

9 

. 64 

16562. 

. 

. 125 

16563 . 

. 

. 64 

16644 . 

m 

. 43 

16645. 


. 54 

16564. 

. 

.229 

16565. 

. 

. 167 

16646. 

m 

. 62 

16647. 

9 

. 43 

16566. 

. 

.237 

16567. 

. 

.82 

16648. 

m 

.249 

16649. 

9 

. 43 

16568. 

. 

. 229 

16569. 

• 

. 193 

16650. 

• 

. 43 

16651. 

9 

. 34 

16570 . 

. 

. 225 

16571. 

• 

• 40 

16652. 

m 

.2 

16653. 

9 

.64 

16572. 

. 

.227 

16573. 

« 

.43 

16654 . 

9 

. o3 

16655. 

9 

.208 

16574. 

. 

. 17 

16575. 

. 

. 155 

16656. 

m 

. 126 

16657. 

9 

.229 

16576. 

. 

• 126 

16577. 

. 

.237 

16658. 

9 

.237 

16659. 


. 75 

16578. 

. 

. 184 

16579. 

. 

. 19 

16660. 

m 

. 10 

16661. 

9 

.64 

16580. 

. 

.235 

16581. 

. 

.34 

16662. 

m 

.42 

16663. 

9 

.20 

16562. 

. 

. 4 

16583. 

. 

. 64 

16664 . 

m 

.64 

16665. 

9 

. 34 

16584. 

. 

.43 

16585. 

. 

.54 

16666. 

9 

.22 

16667. 

9 

. 54 

16586. 

. 

. 62 

16587. 

. 

.43 

16668. 

m 

. 167 

16669. 

9 

. 235 

16588. 

. 

.249 

16589. 

• 

.43 

16670. 

m 

.205 

16671. 

9 

.236 

16590 . 

. 

.43 

16591. 

. 

. 34 

16672. 

9 

.6 

16673. 

9 

.24 

16592. 

. 

.2 

16593. 

. 

.64 

16674 . 

m 

. 181 

16675. 

9 

. 195 

16594. 

• 

.205 

16595. 

m 

• 229 

16676. 

m 

. 19 

16677. 

9 

• * Fig. 2 
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Quando você acabar de entrar 
com os códigos, deverá aparecer, na 
parte inferior de seu vídeo, o código de 
reportagem 0/60. 

Se alguma coisa diferente aconte¬ 
cer, redigite os códigos porque você 
deve ter errado em alguma parte ante¬ 
rior. 

Se tudo ocorreu bem digite LIST e 
você deverá ver alguma coisa como a 
figura 3. 

Agora digite o programa mostrado 
na figura 4. 

Prepare o gravador para gravar o 
programa e digite RUN; o programa se 
auto-gravará e depois da gravação, o 
vídeo ficará cinza durante alguns se¬ 
gundos indicando que o programa está 
seauto-destruindo. 

NÃO SE ASSUSTE 

O programa foi relocado na RAM- 
TOP e ainda está no seu TK. 


Como utilizar o Merge 


É muito fácil, após o programa ser 
relocado na RAMTOP carregue o pri¬ 
meiro programa com LOAD" ". 


Quando o programa entrar digite: 
RAND USR32419 
Novamente não se assuste porque 
o programa não foi destruído, mas sim 
guardado na RAMTOP. 

Agora carregue o segundo pro¬ 
grama e quando perceber que ele foi 
carregado digite: 

RAND USR32465 


Pronto! Os dois programas já es¬ 
tão encaixados. 

Cuidado, pois se existirem duas li¬ 
nhas iguais nos dois programas, a li¬ 
nha do primeiro programa prevalecerá. 

OBSERVAÇÃO: quanto maior for 
o primeiro programa, mais tempo o TK 
levará para fazer o MERGE. 


1 REM 77CRRLOS EDUARDO ROCHA 
SALUATO 198477LN 7757RND RAND 
RND)7RND FAST S GOSUB 7 FAST RT 
LPRINT C ST OP FJBiRNDFOYF RAND P 
F6 “RNOL-N FAST "LN 77 GOSUB 7» RND 
STR$ LPRINT *0 FOR GOSUB ?=RND?7 
7 GOSUB ?* i RND77777 GOSUB 0 GOSUB 
7, RND GOSUB 70RNDS* RNDFOVF RAND 
FF6 *RND55QR E =RND6 -RNDS FOR LM 
GOTO í» 

10 FOR A = 16514 TO 16677 
20 INPLÍT B 

30 SCROLL 

4.0 PRINT R B 

50 PRINT R.B 

60 NEXT F» Fig.3 


5 

5RUE “HERGE" 


10 

POKE 16368,126 


20 

POKE 16389,126 


30 

CL.S 


4.0 

L.ET Bc32382 


50 

FOR « = 16514. TO 

16677 

60 

POKE B,PEEK R 


70 

LET B=B+1 


60 

NEXT R 


90 

NEU 

Fig. 4 




LANÇAMENTO 



Terminal com 
teclado profissional 
tecnologia ITT 
compatível com toda 
linha Sinclair NE e TK. 
Teclado com feed-back 
táctil com todas as 
funções gravadas na 
própria tecla. Caixa em ABS expandido 6 mm de 
espessura pronta para receber seu micro 
computador com todas as interligações instaladas. 
Acompanha manual para montagem com opções 
de fixação da fonte internamente ou usando 
externamente. 


Saídas: Expansão memória/impressora 
Fonte externa ou interna 
Rede 

Gravação EAR/MIC 
Chave Liga/Desliga 
Chave 110/220 Vac 
Joystick 



INTER COL IND. E COM. LTDA. 

Depto. Vendas - Av. Alda. 805 • Diadema (Centro) 
fone: 456.3011 


Os pedidos registrados no mès de abril . terão preço de 
lançamento de Cr$ 99 500,00. 

Linha de Fabricação: 

Chaves comutadoras * 

Teclas e teclados semi profissionais £ 

Teclas e teclados profissionais 5 


“PULO 
DO SAPO 


v* kG' pqn~ 






PONTOS 4-360 M RXIHÜ -44-00 5RPQS 1 



0000 00(90 0O00 0000 


♦ + 0000 0000 



O mais recente lançamento da MULTISOFT para o 
seu TK (TK82, TK83 e TK85). 

Emocionante aventura onde você conduzirá o 
sapo desde o ponto de partida, até uma casa vazia. 

Você deverá cruzar a auto-estrada, sem ser 
atropelado e, em seguida, atravessar um caudaloso 
rio pulando sobre tartarugas e troncos que passam flutuando. 
Para adquiri-lo e entrar para a galeria de recordes do 
pulo do sapo basta enviar carta com seu nome e 
endereços completos, anexando cheque de Cr$ 
5.690,00, nominal à MULTISOFT INFORMÁTICA LTDA. - 
Cxa. Postal 54.121 - CEP 01296 - São Paulo - SP 


r 


INFORMÁTICA LTDA.V^ 


00 * 
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RESPOSTA DO QUEBRA-CABEÇA 


As 7 Pontes 
no Caminho 
da Aldeia 




Recebemos , surpreendentemente , 
apenas uma solução do Quebra-Cabe¬ 
ças "As 7 pontes no Caminho da Al¬ 
deia", enviada pelo leitor Guilherme 
Costa Straube. Aliás, uma excelente 
solução, que pode ser aplicada a mui¬ 
tos outros problemas sobre "cami¬ 
nhos". 

“Como sei que o importante em 
um quebra-cabeça é a resposta não me 
demorarei em compridas explicações 
de como decifrei o misterioso conjun¬ 
to de números nas ilhas. " 
Primeiramente, devemos fazer um 
esquema da rede de pontes, numeran¬ 
do cada uma, onde as pontes de entra¬ 
da (no caso são três) deverão ter os 
menores valores, e as pontes de saída 
os maiores valores. As pontes entre o 
rio também deverão ser numeradas. 
Para tornar mais facilmente decifrável 
o segundo enigma, não serão pontes, 
e sim ilhas ou pontos. 

Em anexo a esta carta, envio um 
esquema completo do caminho. 

Ao iniciar, o programa pede: 

1) Número de pontes de entrada 

— no exemplo, são 3 

2) Número de pontes de saída — 
no exemplo, são 2 

3) Número de ilhas intermediárias 

— no exemplo, são 10 

4) Número de caminhos f ou se¬ 
ja, o número de pontes no exemplo 
são 18 

Em seguida, o programa pedirá os 
caminhos, ou seja, cada ponte ligará a 
ilha X com a ilha Y. Deve-se digitar X e 

Y e NEW UNE para cada caminho (X e 

Y ou Y eX, tanto faz). 

Será montada uma matriz, cha¬ 
mada ciência dos Grafos de Matriz de 
Caminho, onde em um determinado 
endereço da matriz A, em uma linha X 
e coluna Y haverá 1 se existir o cami¬ 
nho (ou ponte) entre as linhas X e Y, 
ou 0, se não existir nenhum caminho 
ligado aos dois pontos diretamente. 
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Se o enigma estivesse somente 
em descobrir o caminho possível, po¬ 
deríamos começar, mas ainda falta for¬ 
necer o código das ilhas, para se re¬ 
solver a segunda parte. O programa 
pedirá cada um dos códigos corres¬ 
pondentes. 

Aí sim o programa começa a "fer¬ 
rar". Para cada linha, coluna que con¬ 
tenham o número 1, salva o ponto da 
ilha como uma parte do trajeto, move a 
coluna para a linha, e novamente si¬ 
mulam-se todas as possibilidades, 
guardando sempre o último ponto 
(ilha) transposto. 

Quando a solução for encontra¬ 
da, o programa a mostra no terminal 
de vídeo, como também fornece a re¬ 
presentação do caractere correspon¬ 


dente à cada uma das ilhas, na ordem 
do seu trajeto correto. 

Para facilitar a entrada de dados, 
forneço anexo ao esquema, os cami¬ 
nhos possíveis, pois estava encontran¬ 
do um pouco de dificuldade na hora de 
digitá-los, porque me confundia e digi¬ 
tava alguns repetidos. 

Não tenho muito gosto por reda¬ 
ção, por isso pretendo não continuar a 
explicação, principalmente agora que 
só restam detalhes. Prefiro que o pro¬ 
grama fale por mim. 

Talvez tenham notado, esse pro¬ 
grama serve para qualquer tipo de 
exemplo, não só para o sugerido. Tal¬ 
vez um dia possa ajudar alguém que 
esteja com um complicado problema 
de caminhos nas mãos." 


© 


© 


CAMINHOS: 

01 a 14 - 

02 a 05 

03 a 04 

04 a 05 

05 a 06 

04 a 08 

05 a 06 

05 a 09 

06 a 07 

07 a 10 

07a 11 

11 a 13 - 

08 a 11 

12 a 13 

09 a 12 
12a 15 

10a 13 - 

10 a 12 

CÓDIGO DAS ILHAS: 

4) - 50 5) - 39 

11)-40 12)-62 

6) - 52 

13)-55 

7) - 45 

8) - 46 9) - 39 

10) - 52 













Solução 


54-0 LET Cd)=Cd)+l 
550 LET M = 1 
560 LET LN=C(M) 

5*7© GOTO 4-50 

5S0 IF fliLN.CL) 09 THEN GOTO 66 

i 

590 XF M 0X2 + 1 THEN GOTO 4-30 


10 REM 
20 REM 
BY n 

30 REM 
5TRRUBE ** 

50 PRXNT 
60 PRXNT 
RRDRS ==> 
70 INPUT 


JSM 


5-Üft XNDIP 


"QUEBRA CBBcCfi MICROHOE 
"PROGRAMADOR:GUILHERME 


TAB 9; 
RT 2,1; 


_EM” 

"NUMERO DE 




ENT 


XX 

XX 

RT 


XV 

XV 

RT 

*z 

XZ 

RT 

XU 

xu 


00 PRirrr 

90 PRINT 
DOS ==> 

100 IKPIJT 
110 PRXNT 
120 PRXNT 
T 05 ==> 

130 INPUT 
14-0 PRXNT 
150 PRXNT 
INHOS ==> 

160 INPUT 
170 PRXNT 
175 LET ME=XX+XZ 

180 LET TP=XX+XY+XZ 

181 FRST 

132 DIM fl(TP.TP) 

183 FOR X = 1 TO TP 
184- FOR V = 1 TO TP 
185 LET R(X,Y)=0 

136 NEXT Y 

137 NEXT X 
1S8 CLS 
190 SLOU 

200 PRXNT RT 1,4-; 

asies- 

210 PRXNT 
, CHEG.“ 

230 PRINT 


4-.. l; "NUMERO DE SFL 


6,1;"NUMERO DE PON 


8,1;"NUMERO DE CBF 


RT 3,1;"PONT.IDR/PONT 


FOR X = 1 TO XU 

IF X >15 THEN SCROLL 

INPUT R $ 

IF LEN R $ < > 4- THEN GOTO 
LET 6 =URL (R$(l TO 2)) 
LET C=URL CR $ (3 TO 4-)) 
IF B=C OR 6 <1 OR B >TP 
C >TP THEN GOTO 260 
PRINT R$ 

LET R CS,C) =1 
LET R(C.B)=1 
IF C < =MÈ RND B < =ME THEN 


260 


OR Cí 


GOT 


240 
250 
260 
270 
290 
300 
310 
1 OR 
320 
330 
340 
350 
O 3S0 

360 IF B > C 
370 IF 06 
380 NEXT X 

352 CLS 

353 DIM BCXZ+XX) 

384 PRINT RT 1.3; ‘‘ *3^» 

nssaam- 

3Q 5 FOR X = 1 TO XZ 

PRINT "ILHR M ;x+xx; ** = = >"; 

INPUT e(X+XX) 

PRINT B(X+XX) 

IF X >16 THEN SCROLL 
NEXT X 
FR ST 
CLS 


THEN 

THEN 


LET 

LET 


R CC,B) =9 
R í B , C ) =9 


386 

387 
3SS 

389 

390 
393 
399 


400 DIM CCXZ + l) 

410 LET C (1) =1 
420 LET Msl 
430 LET LN=1 
440 LET CL =XX + 1 

450 IF R(LN,CU <>0 THEN GOTO 56 

0 

460 LET CL=CL * 1 

470 IF CL < =TP THEN GOTO 450 
430 LET CL=CCM)+1 
490 LET M = M — 1 
5O0 IF M > 0 THEN GOTO 560 
510 IF Cd) <XX THEN GOTO 540 
520 PRINT "NENHUM RESULTADO POS 
SIUEL" 

530 GOTO 1000 


******************** 


GOTO 710 


595 PRINT T RB 7; 

596 PRINT 

597 PRINT -** 

600 FOR X=1 TO M 
610 PRINT C (X) ; 

615 IF X <M THEN PRINT 

620 NEXT X 

621 PRINT " **" 

630 PRINT ’ 

***********" 

635 PRINT 
640 SLOU 
650 GOTO 1050 
660 LET ST =0 
670 FOR X = 1 TO M 
680 IF C (X) < > CL THEN 
690 LET ST = 1 
700 LET X=M*1 
710 NEXT X 

720 IF ST = 1 THEN GOTO 460 
730 LET M=M+1 
740 LET C CM) =CL 
750 LET LN =CL 
760 LET CL =XX*1 
770 GOTO 450 
1000 SLOU 

1010 ST OP _ 

1050 PRINT •'SIESB3BB 
1060 FOR X =2 TO M 
1070 PRINT CHR$ (B(CCX))); 

1030 NEXT X 
1085 PRINT 
1090 PRINT "******************** 



ATENÇÃO! 


Continuamos à espera da segunda parte da 
!| solução do Quebra-Cabeça "L.G.M. ou Mensagem 
de Vega?" publicado na quinta edição. 
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AftlMRLY íjJÍI 


CURSO DE JOGOS 


EM BASIC TK 

!W liW.IMS 


Dezenas de programas 
para instrução e 
lazer em 
dois volumes. 


Dmrta-se aprendendo 
truques 

de programação. 


Ensina linguagem de 
máquina para 
você tirar o máximo 
proveito 
do seu micro . 


Curso didático de 
linguagem Basic 
para iniciantes , 
com muitos exemplos 
e exercícios. 


Sim quero receber os livros assinalados 
abaixo: (faça um "X"). 

D Linguagem de máquina para o TK 
Çr$ 9.900.00 

LJ Curso de jogos em Basic TK 

Cr$ 4.500.00 

O Coleção de programas Vol. I Cr$ 4.900.00 
D Coleção de programas Vol. II 
Cr$ 5.500.00 
□ Basic TK Cr$ 6.500.00 


Envie seu cheque nominal e cruzado, ou 
vale postal para Micromega P.M.D. Ltda. 

Caixa Postal 54096 - CEP0 129b - São Paulo 
Nome: _ 




Endereço: 
CEP: _ 


Cidade: 
_ Data: 




Estado: 


Publicações e Material Didático Ltda 
fone: (011)256-8348 


Assinatura: 


Vaiinn ate ^1/0//84 



Saia do Isolamento! 

V *v t.i 


Núcleo 

DE i ORIENTAÇÃO 

■ de\ estudos 


Aprenda a utilizar 
um microcomputador 
pessoal 

\ Cursos de Basic 
e linguagem 
de máquina 

V Para crianças 
\ e adultos 


Com este 
corpo docente: 

Sprof. pierluigi piazzi 
PROF. FLA VIO ROSSinil 
PROF. FÁBIO RENDELUCCI 


Av. Brig. Faria Lima, 1451 - 3.° - Cj. 31 
Tel.: 813-4555 - CEP 01451 • São Paulo 
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À venda nas boas casas do ramo, lojas especializadas de fotovideo-som e grandes magazines em: ALAGOAS - Maceió, Palmeira dos índios, AMAZONAS - Manaus, BAHIA - Salvador, CEARÁ * Forta¬ 
leza, DISTRITO FEDERAL • Brasília, ESPÍRITO SANTO - Vitória, GOIÁS - Goiânia, MATO GROSSO - Cuiabá, MINAS GERAIS - Belo Horizonte, Divinópolis, Itajuba, Juiz de Fora, Poços de Caldas, São 
João Del Rei, Teófilo Otoni, Uberlândia, Uberaba, Viçosa, PARAÍBA - Campina Grande, PARÁ - Belém, PARANÁ - Curitiba, Londrina, Maringá, PERNAMBUCO - Recife, RIO DE JANEIRO - Campos, Ni¬ 
terói, Nova Friburgo, Petrópolis, Rezende, Rio de Janeiro, Volta Redonda, RIO GRANDE DO SUL - Bagé, Canoas, Caxias do Sul, Ijuí, Novo Hamburgo, Pelotas, Porto Alegre, Sant'Anna do Livramen¬ 
to, Santiago, Santa Rosa, Sâo Leopoldo, RIO GRANDE DO NORTE ■ Natal, RONDÔNIA - Porto Velho, SÃO PAULO - Araraquara, Assis, Avaré, Bauru, Birigui, Botucatu, Campinas, Catanduva, Franca, 
Guarulhos, Itu, Jacarei, Jaú, Limeira, Lins, Marilia, Mogi Guaçu, Mogi das Cruzes, Ourinhos, Piracicaba, Pirassununga, Promissão, Rio Claro, Ribeirão Preto, Santos, Santa Barb. d'Oeste, Sâo Ber¬ 
nardo do Campo, Sâo João da Boa Vista, Sâo Sebs da Grama, São Carlos, Sâo José do Rio Preto, Sâo José dos Campos, St? André, São Paulo, Sorocaba, Suzano, Taubaté, SANTA CATARINA - Blume¬ 
nau, Brusque, Florinópolis, Itajaí, Joinville, SERGIPE - Aracajú, Se você nõo encontrar este equipamento na sua cidade ligue para (011) 800 - 255.8583. 
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MICROMEGA Publicações e Material Didático Ltda. 

Caixa Postal 54096 - CEP 01296 - São Pauio - SP 
CGC.: 52.275.724/0001-41 - Inscr. Est.: 110.862.362, 


S/ 


Desejo assinar a Revista MICROHOBBY (12 edições) 


NOME 






ENDEREÇO 

n.° assinatura 
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CEP 







CIDADE 

TELEFONE 


























ASSINATURA 


Estou anexando a quantia de Cr$ </6.<9QO,Oo _□ em cheque nominal 

para MICROMEGA P.M.D. Ltda., referente a venda de uma assinatura. 1—1 vale postal 
em cheque nominal n.°_ Banco _ 

Data _Z_ L 


MICROCOMPUTADOR QUE POSSUI 


Válido até 30/07/84 


ESTE CARTÃO NÃO PODE SER 
UTILIZADO POR TERCEIROS PARA 
COLETA DE ASSINATURAS 
Válido somente se postado diretamente 
pelo assinante. 



A REVISTA DOS USUÁRIOS DO TK 


cada vez melhor! 


Faça sua assinatura, preenchendo o cupom anexo e ganhe uma tabela com informações 
utilíssimas para o usuário do TK e compatíveis, tais como mapa da RAM, tabela de 
conversão decimal para hexadecimal, etc. Além disso você receberá um exemplar da 
edição especial da MICROHOBBY contendo os melhores programas já publicados. 


O que contém uma fita com programas? Programas. Programas 
aplicativos ou jogos. Entretanto, estas fitas, embora possam 
proporcionar uma série de funções úteis, fornecem como informação 
extra apenas uma listagem, que nem sempre é esclarecedora. 


Além disso, a Microhobby é uma revista didática, destinada a 
programadores em vários níveis, desde o principiante até o hobbysta 
mais ousado, que se aventure a programar em linguagem de máquina. 

Receba em sua casa a revista que contém programas, informações, dicas e tudo que você 
quiser saber sobre microcomputadores e programação. 
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MICROMEGA Publicações e Material Didático Ltda. 

Caixa Postal 54096 - CEP 01296 - São Paulo - SP 
CGC.: 52.275.724/0001-41 - Inscr. Est.: 110.862.362 


PEDIDO DE LIVROS E NÚMEROS ATRASADOS 


Quantidade 

Especificação 

até31 07 84 



Linguagem de máquina 
para o TK 

r.fâqa# 



Curso de jogos 
em Basic TK 

4.500,4/): 



Coleção de programas vol. 1 




Coleção de programas vol. II 




Basic TK 




N9s atrasados 
(n? 2, n? 4, n? 6 ) 

Cr$ 1 600,00 



Fita com São Paulo (1k) 
e Mansão Maluca 

Cr$ 6.000,00 


Fita com Pulga (2k) 
e Simulador de Vôo (16k) 

Cr$ 6.000,00 

Total 






_ _ 

Data ASSINATURA 

Envie seu cheque nominal e cruzado, ou vale 
postal para Micromega P.M.D. Ltda. 

Caixa Postal 54096- CEP 01296 - São Paulo - SP 

[H em cheque nominal n?_Banco_ 

I I vale postal 


Aguarde em média 30 dias para 
atendimento, do pedido. 


•Não deixe de 



Basic TK 


Um livro destinado a quem se interes¬ 
sa em aprender a linguagem do compu¬ 
tador TK82-C, 83, 85, CP-200, Ringo, 
AS-1000 e outros compatíveis com a ló¬ 
gica Sinclair. Complementando os ma¬ 
nuais destes computadores, o livro 
BASIC TK é um auxiliar útil mesmo para 
os que já possuem alguns conhecimentos 
sobre sua máquina. 



Linguagem de máquina para o TK 


Programar em linguagem de máquina 
nos permite criar programas muito mais 
rápidos e versáteis que os programados 
em BASIC. O livro LINGUAGEM DE 
MÁQUINA PARA O TK ensina, passo a 
passo e de uma maneira muito leve os se¬ 
gredos desta arte, tornando-o capaz de 
elaborar jogos e aplicativos nesta moda¬ 
lidade de programação. 


COLEÇÃO DE 
PROGRAMAS 

vai 



Coleção de programas vol. I e li 


Programas de todaç as modalidades e 
para todas as idades. E um livro ideal pa¬ 
ra você que gosta de programas "prontos 
para uso" para o seu computador. 







Curso de Jogos para o TK 


Certamente os jogos de vídeo são a 
coqueluche do momento. Que tal você 
mesmo bolar seus jogos em seu TK ou 
compatível? Este livro lhe dá fundamen¬ 
tos para que você possa iniciar-se neste 
fascinante hobby. 
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